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