VBA Find. return True/ False

Solved:

Sub Macro1()

If Cells.Find("a") Is Nothing Then
MsgBox ("Not found")

Else
MsgBox ("found")
End If
End Sub