How do I change Font color specific text

  • Thread starter Thread starter jlr
  • Start date Start date
J

jlr

How do I change the font color in the first 4 letters of text in a column of
cells?
Thanks.
 
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
 
Back
Top