Lo puedes hacer con la función Instr. Aquí tienes un ejemplo, que lo que hace es colocar en la columna de la derecha, una frase, si encuentra la frase o palabra que hayas informado:
Código:
Sub frase()
frase = "mi casa"
Do While Not IsEmpty(ActiveCell)
If InStr(ActiveCell, frase) > 0 Then ActiveCell.Offset(0, 1) = "Existe la frase: " & frase
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Salu2