Excel: Macro con la funcion de edicion/buscar

[Pablus00]

Hola Abrahamvj, perdona mi brutesa jaja, pero no logro darle al clavo, mira, probe con:

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

On Error GoTo 8 'linea 8 que es la que el mensaje

MsgBox "La palabra buscada no existe en la base de datos", vbInformation, "ERROR DE BUSQUEDA"

End Sub

y obtengo que me dice "que no se ha definido la etiqueta"
-----------------
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

On Error GoTo final
final:
MsgBox "La palabra buscada no existe en la base de datos", vbInformation, "ERROR DE BUSQUEDA"

End Sub

y obtengo que nuevamente la busqueda se realiza, y el mensaje sale igual aunque la palabra que busco exista. Ademas se queda estancada en el primer resultado,cuando hay muchas celdas con ese contenido