Try something like this in your code
Cells.Find(What:="WHAT YOUR LOOKING FOR", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Font.ColorIndex = 3
Cells.FindNext(After:=ActiveCell).Activate
Selection.Font.ColorIndex = 3
This colours the selected cell text red.
You could use a loop to go throught until the findnext property was false.
This might help. let me know
dyarwood