Macro for finding a specific word within a specific range

[shahdelsol]

I am looking for a macro to find a specific word in specific range and if found execute a macro.
Example:

If "apple" (not case sensitive) found in any cell in the range of ("A1:A15") then

'macro here

if not found then

'Macro here

End if

Thanks to anyone can help!

 

[Rick Rothstein]

I am looking for a macro to find a specific word in specific range and if found execute a macro.
Example:

If "apple" (not case sensitive) found in any cell in the range of ("A1:A15") then

'macro here

if not found then

'Macro here

End if

Something like this should work (the code assumes the word could be in the cell along with other text)...

If Range("A1:A15").Find("apple", , , xlPart, , , False) Is Nothing Then
  ' The word was NOT found
Else
  ' The word was found
End If

 

[shahdelsol]

This worked the way I expected . Thank you very much!