funcion buscar palabra que retorna cierto o falso

[mrocf]

Hola! Negu.
Podrías intentar algo así:

Código PHP:

  Function BuscarCadena(cadena As String) As Boolean 
Dim Celda As Range, Hoja As Object 
 
For Each Hoja In ActiveWorkbook.Sheets 
  Set Celda = Hoja.Cells.Find(What:=cadena, LookIn:=xlValues, LookAt:=xlWhole) 
  If Not Celda Is Nothing Then 
    BuscarCadena = True: Set Celda = Nothing: Exit Function 
  End If 
Next Hoja 
 
BuscarCadena = False 
End Function  
   

Saludos, Cacho.