Set the color for whole range : Range Format « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Range Format

Set the color for whole range

 
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

 

Related examples in the same category