Try...
On Error Resume Next
x = Cells.Find(What:= myval, LookAt:=xlPart)
If Err.Number = 91 Then Exit Sub

"Wildman" wrote:

I'm trying to mix in some VB in a macro I made that
looks for a particular word in a cell. If the word
exist, continue the macro. If it does not end the Macro.
any Ideas?

Cells to search for word a2:a30000
word can be mixed in with other characters.

Thanks in advance
Wildman