¿Programación, consulta y visualización en VBA?

Hojas("hoja1").Activar 'Indica que la hoja1 está activada

Atenuar mytel como cadena

Atenuar como largo

Dim rn As Range

Con ActiveSheet.UsedRange

mytel = TextBox1.Text 'Da el contenido del cuadro de texto 1 a la variable mytel

Para i = 1 To [ A65536].End(xlUp).Row 'Consulta toda la hoja de la tabla1

Establecer rn = Cells.Find(what:="*" & "mytel" & "*", LookAt:=xlPart ) ' El contenido de buscar

Si no es rn no es nada, entonces

firstAddress = rn.Address

Hacer

msgbox rn.Value 'Mostrar valor de celda encontrada

Establecer rn = .FindNext(rn) 'Buscar la siguiente

Bucle mientras no rn es nada y rn.Address <> firstAddress 'Hasta un ciclo

Finalizar si

Referencia de código