Me paso esto boluart,espero les sirva, o si alguien lo puede adecuar ya que si busca y envia los mensajes pero no se situa en la celda que contiene el valor..
saludos
Código:
Sub buscar()
Dim n As Range
Set n = Cells.Find(What:="bolu")
If n Is Nothing Then
MsgBox "nay"
Else
MsgBox "Finded"
End If
End Sub