For Each cell In Range("B2:B5000")
If cell,Value Like ("*LL7P*") Then
cell.Interior.Colorindex = 3
End If
Next cell
--
HTH
RP
(remove nothere from the email address if mailing direct)
"jay dean" wrote in message
...
Each cell in Range("B2:B5000") contains an alphanumeric word. I need a
*macro* that will loop through every cell in the range. If any word in
any cell in the range contains the substring or subtext "LL7P" then that
cell is to be colored red.
Any help would be greatly appreciated.
Thanks.
Jay Dean
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!