Excel Grava o cliente errado

[Neri Schuck]

Insiro em anexo 2 formulários:
1 - Pesquisa de Clientes
2 - Cadastro de Dados

Quando quero cadastrar dados, clico no sinal de "+" no arquivo "Cadastro de Dados" e escolho o cliente.
Ao escolher o cliente 2 chamado "Auto" funciona corretamente, porém na hora de salvar ele troca o cliente. Motivo que ele faz isto: O comando não salva o nome do cliente, e sim substitui pelo codigo do mesmo que está no cadastro do cliente. 
Por exemplo: Se escolher o cliente "Auto" (Cliente 2) e salvar os dados, ele teria que salvar o código "2". 
Mas não é isto que acontece. Ele vai na relação dos clientes e procura a palavra "Auto" e o primeiro que ele encontrar ele pega o código. Vejam que o cliente 1 tem o nome de "Auto Peças", ou seja, tem a palavra Auto e por este motivo ele salva como cliente 1.

O codigo que faz a procura e salva o codigo é este:

If Me.txtcliente.Text = "" Then
.Cells(indice, ColCliente).Value = "NAO INFORMADO"
Set wsCliente = ThisWorkbook.Worksheets("clientes")
With wsCliente.Range("B1:B65000")
Set X = .Find("NAO INFORMADO", LookIn:=xlValues)
If Not X Is Nothing Then
cliente = wsCliente.Rows(X.Row).Value
End If
End With
.Cells(indice, ColCliente).Value = cliente
indiceRegistro = indice ' posiciona no lancamento correto para evitar erros
Set wsCliente = Nothing
Else
Set wsCliente = ThisWorkbook.Worksheets("clientes")
With wsCliente.Range("B1:B65000")
Set X = .Find(Me.txtcliente.Text, LookIn:=xlValues)
If Not X Is Nothing Then
cliente = wsCliente.Rows(X.Row).Value
End If
End With
.Cells(indice, ColCliente).Value = cliente
indiceRegistro = indice ' posiciona no lancamento correto para evitar erros
Set wsCliente = Nothing
End If

Como poderia fazer para evitar este erro?

 

[Igor F.]

O anexo não foi...