Una Macro

hola, jack !

... lo unico que tuve que hacer es sacar los guiones bajos y poner activate final y quedo asi:

Cells.Find(what:=TextBox1, after:=ActiveCell, LookIn:=xlFormulas,
Lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext,
MatchCase:=False).Activate

si *ves* tu exposicion, aparecen TRES lineas [supongo que en el modulo de codigo es una sola linea] -?-

tambien puedes *omitir* los nombres de los argumentos [p.e.]
Cells.Find(TextBox1, ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False).Activate

o... en lenguaje vba se puede indicar un salto de linea usando dos puntos seguidos de un espacio [p.e.]

a) puedes mostrar dos mensajes usando una linea de codigo para cada uno:
MsgBox "Hola, Jack"
MsgBox "Hasta luego, Jack"

b) o en una sola linea de codigo [nota los dos puntos que separan cada MsgBox]:
MsgBox "Hola, Jack": MsgBox "Hasta luego, Jack"

asi como una continuacion de linea usando un espacio y un guion_bajo
-> que indica que la siguiente linea es... 'la misma' o una sola *instruccin* [p.e.]

Cells.Find( _
what:=TextBox1, _
after:=ActiveCell, _
LookIn:=xlFormulas, _
Lookat:=xlPart, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False).Activate

saludos,
hector.