Here's something that we did for a manager recently.

Sub ChangeTheColor()
Dim CRed, CGreen, CYellow, CNone
CRed = 3
CYellow = 6
CGreen = 4
For Each cell In Selection
'if the cell is less than 33% then color it solid red
If cell.Value < 0.33 And cell.Value >= 0 Then
cell.Interior.ColorIndex = CRed
cell.Interior.Pattern = xlSolid
'if the cell is less than 66% then color it solid yellow
ElseIf cell.Value > 0.33 And cell.Value <= 0.66 Then
cell.Interior.ColorIndex = CYellow
cell.Interior.Pattern = xlSolid
'if the cell is more than 66% then color it solid green
ElseIf cell.Value > 0.66 And cell.Value <= 1 Then
cell.Interior.ColorIndex = CGreen
cell.Interior.Pattern = xlSolid
'anything else remove the color
Else
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub


Sorry, it's a little tough to read. The bbs seems to eat the formatting.