Sub ColorCells1()
Dim myRange As Range
Dim i As Long, j As Long
Set myRange = Range("A1:A5")
For i = 1 To myRange.Rows.Count
For j = 1 To myRange.Columns.Count
If myRange.Cells(i, j).Value < 100 Then
myRange.Cells(i, j).Font.ColorIndex = 3
Else
myRange.Cells(i, j).Font.ColorIndex = 1
End If
Next j
Next i
End Sub