No compila una macro

No me compila esta macro, confeccione un formulario que tiene 3 etiquetas
nombre,dirección y telefono, con 3 botones de comando consulta,baja e inserta.
El comando consulta se cae y me da como error lookat_:xlpart,

Cells.Find(what:=TextBox1, after:=ActiveCell, LookIn:=xlFormulas,
lookat_:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext,
MatchCase:=False).Active
Alguien me puede ayudar
Gracias

jack escribio en el mensaje ...
No me compila esta macro, confeccione un formulario que tiene 3 etiquetas nombre,direccion y telefono
con 3 botones de comando consulta, baja e inserta. El comando consulta se cae y me da como error lookat_:xlpart,
Cells.Find(what:=TextBox1, after:=ActiveCell, LookIn:=xlFormulas,
lookat_:=xlPart, searchorder:=xlByRows, searchdirection:=xlNext,
MatchCase:=False).Active
Alguien me puede ayudar Gracias

KL escribio en el mensaje ...
Prueba esto:

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