Here is an example for column D:

Sub ColorMeElmo()
Set r = Intersect(ActiveSheet.UsedRange, Range("E:E"))
For Each rr In r
If Len(rr.Value) 4 Then
rr.Characters(Start:=1, Length:=4).Font.ColorIndex = 6
End If
Next
End Sub

--
Gary''s Student - gsnu201002


"jlr" wrote:

How do I change the font color in the first 4 letters of text in a column of
cells?
Thanks.
--
jlr