Hi,

To handle this one usually writes a macro

Sub myColors()
Dim Cell As Range
For Each Cell In Range("A1:A10")
Select Case Cell
Case 1
Cell.Interior.ColorIndex = 40
Case 2, 3
Cell.Interior.ColorIndex = 41
End Select
Next Cell
End Sub

To make this automatic you can attach it to an Worksheet_Change event

Here is some sample code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("A1"))
If Not isect Is Nothing Then
'Your code here
End If
End Sub
--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"RO" wrote:

When assigning conditional formatting to cells, you are limited to three (3)
assignments. I have need to assign five (5) assignments per cell.

Is there an add-on available for Excel 2003 or some other easy way to
increase the number of assignments?