Hi,

One solution is use the worrksheet change event and select case.

Right click the sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A5")) Is Nothing Then
Select Case Target.Value
Case Is < 10
icolour = 3
Case Is = 10
icolour = 4
Case Is < 20
icolour = 5
Case Is < 30
icolour = 6
Case Else
icolour = xlNone
End Select
Target.Interior.ColorIndex = icolour
End If
End Sub

Mike

"davednconfused" wrote:

Hi All,

Is there a way to add more then 3 conditional formatting criteria? I'd like
to add a forth or fifth.