How do I change Font color specific text

[jlr]

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

 

[Gary''s Student]

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