Hello Frank
You can alter my code like this
Sub CheckCells()
Set RangeToFormat = Sheets("Sheet1").Range("CellsToCheck")
For Each cell In RangeToFormat
With cell
' Empty cells
If IsEmpty(cell) Then
.Interior.ColorIndex = xlNone
' Numeric cells
ElseIf IsNumeric(cell.Value) Then
Select Case cell.Value
Case Is < 0
.Interior.ColorIndex = 7
Case Is < 10
.Interior.ColorIndex = 4
Case Is < 15
.Interior.ColorIndex = 9
Case Is < 20
.Interior.ColorIndex = 10
Case Is < 25
.Interior.ColorIndex = 11
Case Is < 35
.Interior.ColorIndex = 12
End Select
'Error cells
ElseIf IsError(cell.Value) Then 'Error cells
.Interior.Color = 3
' Other cells (text)
Else
.Interior.ColorIndex = xlNone
End If
End With
Next cell
End Sub
Just play with the color index to find what you need
Regards
Andreas