Excel: Macro con la funcion de edicion/buscar

[angel21]

hola Abrahamvj eh estado leyendo tus respuestas y estan muy buenas... kiero poner la opcion buscar en el evento change de un textbox.

y cada vez q digito una letra me manda MsgBox "Error" y me dificulta digitar :(...perso si me funciona cuando este codigo lo pongo en boton comando :)..pero yo kiero en el evento change :(

mira estoy poniendo este codigo y no me sale :(
Private Sub TextBox1_Change()
Dim n As Range
On Error GoTo lineaerror

n = Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Exit Sub

lineaerror:
MsgBox "Error"

End Sub