Galera, boa tarde, gostaria de uma ajuda de vocês, estou fazendo um Sistema de cadastro de celulares quando entra na manutenção, para fins de controle
porem, fiz um form para (pesquisar) o que ja foi cadastrado e queria melhorar ele, pois ele só pesquisa quando eu coloco no textbox a palavra identica com a que esta gravada na celula

vou postar o codigo aqui, mas se precisar mando a planilha tambem, sem problema algum

Codigo:

Private Sub btnpesquisar_Click()

Range("H1").Select
'Pesquisar'
Dim linhaatual As Integer
If TextBox1.Text <> "" Then
contador = 0
Do While ActiveCell.Value <> TextBox1.Value And contador < 2000
ActiveCell.Offset(1, 0).Select
contador = contador + 1
Loop
End If

If ActiveCell.Value = TextBox1.Value Then
ListBox1.Clear
linhaatual = ActiveCell.Row
ListBox1.AddItem Plan1.Range("H" & linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 1) = Plan1.Range("E" & linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 2) = Plan1.Range("C" & linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 3) = Plan1.Range("F" & linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 4) = Plan1.Range("G" & linhaatual)
Else
MsgBox "Registro não encontrado!", vbCritical, "Erro"
MsgBox "Obs: A consulta só pode ser feita pelo nome do Cliente", vbCritical, "Alerta"
End If

End Sub