Thanx bro!
--
Best Regards,

Faraz


"Rick Rothstein" wrote:

Here is a macro that should do what you want...

Sub PeopleColorer()
Dim Cell As Range, StartAt As Long
For Each Cell In Selection
StartAt = InStr(1, Cell.Value, "people", vbTextCompare)
Do While StartAt 0
Cell.Characters(StartAt, 6).Font.ColorIndex = 3
StartAt = InStr(StartAt + 1, Cell.Value, "people", vbTextCompare)
Loop
Next
End Sub

--
Rick (MVP - Excel)


"Faraz A. Qureshi" wrote in
message ...
Any idea of a suitable piece of code to convert the fonts' color of ONLY
the
WORD "people", in the CURRENT SELECTION?

In other words, instead of hitting F2 a hundred times, placing the cursor
to
the specific piece of text everytime, selecting it, and changing it to red
(for example), and then again moving to the other cell, there should be a
single code to carryout the exercise.

--
Thanx in advance,
Best Regards,

Faraz

.