Fred

Putting your question in the subject line means it gets truncated to the point
where we cannot read it.

Post in the body of your message in future.

If you need 6 conditions see John McGimpsey's site.

http://www.mcgimpsey.com/excel/conditional6.html

If need more than 6, you will require code.

Sample.......

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num As Long
Dim Rng As Range
Dim vRngInput As Variant
Set vRngInput = Intersect(Target, Range("A:A"))
If vRngInput Is Nothing Then Exit Sub
For Each Rng In vRngInput
'Determine the color
Select Case Rng.Value
Case Is <= 0: Num = 10 'green
Case 0 To 5: Num = 1 'black
Case 5 To 10: Num = 5 'blue
Case 10 To 15: Num = 7 'magenta
Case 15 To 20: Num = 46 'orange
Case 20 To 25: Num = 6 'yellow
Case Is 25: Num = 3 'red
End Select
'Apply the color
Rng.Font.ColorIndex = Num
Next Rng
End Sub


Gord Dibben Excel MVP

On Thu, 10 Feb 2005 15:01:11 -0800, "Fred Stoll" <Fred
wrote:

If anyone has any information regarding this, please reply or contact me.