Prev: sub total value
Next: Change authentication in 2007?
From: jlr on 6 May 2010 14:17
How do I change the font color in the first 4 letters of text in a column of
cells?
Thanks.
--
jlr
From: Gary''s Student on 6 May 2010 15:19
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
 | 
Pages: 1
Prev: sub total value
Next: Change authentication in 2007?