Excel: Macro con la funcion de edicion/buscar

[abrahamvj]

Pablus, un ejemplo:

Sub Macro1()

On Error GoTo lineaerror

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

Exit Sub

lineaerror:
MsgBox "Error"

End Sub

Abraham