funcion buscar palabra que retorna cierto o falso

[negu]

Muchas gracias.

Hoy lo he probado y me a sido de gran utilidad la parte del error. Mi código queda así:

' funcion que de vevuelve cierto si encuentra una palabra o falso si no esta
Function Buscar(cadena As String) As Boolean

'en caso de error, que continúe
On Error Resume Next
'buscamos la palabra y nos situamos sobre ella
Cells.Find(What:=cadena).Activate
'si no le hemos encontrado, nos dará error nº 91
If Err = 91 Then
'en caso de error, devolvera que no la ha encontrado
dato = False
Else
'si no hay error, devolvera que la ha encontrado
dato = True
End If
'retornemos el parametro
Buscar = dato

End Function



Ahora sólo me falta una cosilla para que sea exactamente lo que necesito. Que consiga buscarme la palabra en todas las hojas del archivo Excel, no sólo en la hoja activa.

Gracias de antemano.

Saludos.