Excel: Macro con la funcion de edicion/buscar

[3pies]

La verdad es que no me he leído todo este hilo, ya que solo contesto a lo último que preguntaba LANDA59.

Prueba este código:

Código:

Sub buscar()
    Dim n As Range
    palabra_a_buscar = InputBox("Introduce la palabra a buscar", "Buscador")
    Set n = Cells.Find(What:=palabra_a_buscar)
    If n Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    Else
        Range(n.Address).Select
        MsgBox "Aquí tienes la palabra " & UCase(palabra_a_buscar) & "."
    End If
    Set n = Nothing
End Sub

Salu2