A while ago xld helped me out and created the code below, I modified it to include a named range which I called Info, now I need it to only work on certain cells so have created three discontinuous named ranges Info07, Info08 and Info09 but somehow need to link them togeather and get the code to work on them.
I think I should be using Union but not sure how to make it work with the code.
Any help gratefully recieved even if only being pointed to another website.
Thanks (from long time lurker)
[VBA]Private Sub Worksheet_Calculate()
Dim Target As Range
Dim icolor As Long
On Error Resume Next
Application.DisplayAlerts = False
For Each Target In Me.Range("E17:P51")
icolor = xlColorIndexNone
Select Case Target
Case 0 To 0: [White]
Case 1 To 75: icolor = 3
Case 76 To 95: icolor = 26
Case 96 To 100: icolor = 45
Case 101 To 102: icolor = 46
Case 103 To 105: icolor = 4
Case 106 To 1000: icolor = 50
Case Else: 'Whatever
End Select
Target.Interior.ColorIndex = icolor
Next Target
End Sub
[/VBA]