For Each c In Range("I3:I242").Cells
Select Case CStr(c.Value) ' Select Case c.Value
Case Is > 0, 4
c.Interior.Color = vbGreen
c.Font.Color = vbBlack
Case Is > 0, 3
c.Interior.Color = RGB(207, 255, 210)
c.Font.Color = vbBlack
Case Is > 0, 2
c.Interior.Color = vbYellow
c.Font.Color = vbBlack
Case Is < 0
c.Interior.Color = RGB(255, 210, 0)
c.Font.Color = vbBlack
Case Else
c.Interior.Color = RGB(0, 255, 255)
c.Font.Color = vbBlue
End Select
Next