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.