Bob Phillips wrote...
For Each cell In Range(A2:A30000")
iPos = Instr(1,cell.Value,"the_word")
If iPos 0 Then
'continue code
End If
Next cell

Alternatively, could use Like.

For Each c In SomeRange
If c.Value Like "*" & your_word_here & "*" Then
'continue
End If
Next c

Sometimes exact text matching (InStr) is more useful, other times
pattern matching (Like) is.