byzard
buenas soy chema te mando una macro que qreo te puede servir solo tienes que copiarla y crear un boton para accionarla ,
Sub busqueda()
On Error GoTo y
Dim Mensaje, Título, ValorPred, MiBUSCA, Mireemp
Mensaje = "PALABRA A BUSCAR"
Título = "BUSQUEDA"
MiBUSCA = InputBox(Mensaje, Título)
Mensaje = "PALABRA PARA REEMPLAZAR"
Título = "REEMPLAZAR"
Mireemp = InputBox(Mensaje, Título)
Do
Cells.Find(What:=MiBUSCA, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Replace What:=MiBUSCA, Replacement:=Mireemp, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Loop
y:
End Sub
espero que sea lo que buscas un saludo
