Workaround for 3 criteria limit for excel conditional formatting

[Lizard07]

Hello - I need 5 conditional formatting rules and excel limits me to three. I have a VBA code workaround, but its for the fill color - I would like to change the color of the text...any ideas on how I could alter the code below to do this?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Select Case Target
Case 1 To 5
icolor = 6
Case 6 To 10
icolor = 12
Case 11 To 15
icolor = 7
Case 16 To 20
icolor = 53
Case 21 To 25
icolor = 15
Case 26 To 30
icolor = 42
Case Else
End Select
Target.Interior.ColorIndex = icolor
End If

End Sub

 

[VoG]

Try

Target.Font.ColorIndex = icolor

 

[Lizard07]

That simple, I feel stupid

Thanks!