Pessoal boa tarde,
Estou criando uma "Agenda" de telefones porém estou com um problema, quando executo o botão "Busca" ele está me trazendo o seguinte:
- Tenho cadastrado o nome "Alex Fernandes" se eu buscar somente "Alex" informa que o contato não foi localizado;
- meu código está da seguinte forma.
Minha intenção é digitar apenas o primeiro nome e ele já me trazer quais "nomes" estão cadastrado, exemplo; digito "Alex" e aparece alguma caixa de opções com todos os "Alex" que estão cadastrado !
Peço desculpas se a pergunta é tosca, mas estou querendo começar a aprender agora !
Desde já obrigado.

Toda minha linha de código está no anexo ! - Projeto Agenda
____________________________________________________________________________________________________________________________________________
Private Sub cmdbusca_Click()
If txtlocalizar.Text = "" Then
MsgBox "Você deve digitar o nome do contato a ser localizado", vbInformation, "Agenda"

Else

txtlocalizar = UCase(txtlocalizar)
Plan1.Range("A2").Select

End If

Do ' Repita

If IsNumeric(ActiveCell) Then
ActiveCell.Offset(0, 1).Select

If ActiveCell.Value = txtlocalizar.Value Then

Exit Do
End If

ActiveCell.Offset(1, -1).Select 'Selecione a célula a esquerda e abaixo

If IsEmpty(ActiveCell) Then
MsgBox "Contato não localizado", vbInformation, "Agenda"

Exit Do

End If

Else

Exit Do

End If

'Até encontrar uma célula que contém o valor da caixa de texto localizar
Loop Until ActiveCell.Text = txtlocalizar.Text

LimparCampos

On Error Resume Next
ActiveCell.Offset(0, -1).Select
CarregarDadosNoFormulario

Exit Sub