Sub ColorCells3() Dim myRange As Range Dim i As Long Set myRange = Range("A1:E5") For i = 1 To myRange.Cells.Count If myRange(i).Value < 100 Then myRange(i).Font.ColorIndex = 6 Else myRange(i).Font.ColorIndex = 1 End If Next i End Sub