Sub ColorCells4() Dim Rng As Range For Each Rng In Range("A1:E5") If Rng.Value < 100 Then Rng.Font.ColorIndex = 4 Else Rng.Font.ColorIndex = 1 End If Next Rng End Sub