funcion buscar palabra que retorna cierto o falso

[3pies]

Prueba esto:

Código:

Sub buscar()
'en caso de error, que continúe
On Error Resume Next
'definimos la palabra (o frase a buscar)
palabreja = "hola"
'la buscamos y nos situamos sobre ella
Cells.Find(What:=palabreja).Activate
'si no le hemos encontrado, nos dará error nº 91
If Err = 91 Then
    'en caso de error, la hemos jodido
    dato = False
Else
    'si no hay error, mucho mejor :-)
    dato = True
End If
'escribimos el dato en un msgbox
MsgBox (dato)
End Sub

Saludos.