If cells contain Word

[AK_Excel_13]

I want excel to look at a cell and if it contains the word "special" then I want it do run my code. I am not sure how to do this.
Here is what I have so far.

Sub special()
Count = Range("a65536").End(xlUp).Row
For i = 2 To Count

If cells(i,4).value = [contains the word "special"] then
[run this code]
End If
Next i


End Sub

Thanks!

 

[Andrew Poulsom]

Try:

If Instr(Cells(i, 4).Value, "special") Then

 

[AK_Excel_13]

It works. Thanks!