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

Hi Faraz

Try the below macro which works on the current selection


Sub FindAndColorCharacterWithinCell()
Dim cell As Range, intPos as Integer
For Each cell In Selection
With cell
Do
intPos = InStr(intPos + 1, .Value, "people", vbTextCompare)
If intPos Then
..Characters(Start:=intPos, Length:=6).Font.FontStyle = "Bold"
..Characters(Start:=intPos, Length:=6).Font.ColorIndex = 3
End If
Loop Until intPos = 0
End With
Next
End Sub

--
Jacob


"Faraz A. Qureshi" wrote:

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

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

XClent
--
Thanx in advance,
Best Regards,

Faraz


"Jacob Skaria" wrote:

Hi Faraz

Try the below macro which works on the current selection


Sub FindAndColorCharacterWithinCell()
Dim cell As Range, intPos as Integer
For Each cell In Selection
With cell
Do
intPos = InStr(intPos + 1, .Value, "people", vbTextCompare)
If intPos Then
.Characters(Start:=intPos, Length:=6).Font.FontStyle = "Bold"
.Characters(Start:=intPos, Length:=6).Font.ColorIndex = 3
End If
Loop Until intPos = 0
End With
Next
End Sub

--
Jacob


"Faraz A. Qureshi" wrote:

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

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

.