Here is some code:
If your values keep changing, you could turn that into an event procedure.

HTH
--
AP

'-------------
Option Explicit

Sub test()
Call SetColors(Range("A1:AF32"))
End Sub


Sub SetColors(rArray As Range)

Const dDelta As Double = 0.25
Dim rCell As Range

For Each rCell In rArray
With rCell
Select Case .Value
Case 4 - dDelta To 4 + dDelta: .Interior.ColorIndex = 33
Case 5 - dDelta To 5 + dDelta: .Interior.ColorIndex = 34
Case 6 - dDelta To 6 + dDelta: .Interior.ColorIndex = 35
Case 7 - dDelta To 7 + dDelta: .Interior.ColorIndex = 36
Case 8 - dDelta To 8 + dDelta: .Interior.ColorIndex = 37
Case 9 - dDelta To 9 + dDelta: .Interior.ColorIndex = 38
Case 10 - dDelta To 10 + dDelta: .Interior.ColorIndex = 39
Case 11 - dDelta To 11 + dDelta: .Interior.ColorIndex = 40
Case 12 - dDelta To 12 + dDelta: .Interior.ColorIndex = 41
Case 13 - dDelta To 13 + dDelta: .Interior.ColorIndex = 42
Case 14 - dDelta To 14 + dDelta: .Interior.ColorIndex = 43
Case Else: .Interior.ColorIndex = xlColorIndexNone
End Select
End With
Next rCell
End Sub
'--------------
"John David" a
écrit dans le message de news:
...

Where would I start if I needed to code this? I have no prior
experience.

John


--
John David
------------------------------------------------------------------------
John David's Profile:
http://www.excelforum.com/member.php...o&userid=34609
View this thread: http://www.excelforum.com/showthread...hreadid=543830