Sou novo no vba, na verdade primeiro progama.
Estou fazendo uma agenda telefonica e preciso fazer um botão de pesquisa, onde o mesmo, procura o nome da pessoa em 6 planilhas.

tenho o botão e uma caixa de texto ( txtLOCALIZAR )e utilizo inicialmente os seguintes codigos:

If txtLOCALIZAR.Text = "" Then

Else
txtLOCALIZAR = UCase(txtLOCALIZAR)

End If


Do
If IsNumeric(ActiveCell) Then
ActiveCell.Offset(0, 1).Select
If ActiveCell.Value = txtLOCALIZAR.Value Then
Exit Do
End If

ActiveCell.Offset(1, -1).Select
If IsEmpty(ActiveCell) Then
Exit Do
End If
Else
Exit Do
End If

Loop Until ActiveCell.Text = txtLOCALIZAR.Text

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

CarregarDadosNoFormulário

PRECISO MUDAR ALGO?? ESSE NAO DAR CERTO.