Loop through a range cell by cell : Range Loop « Excel « VBA / Excel / Access / Word

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

Loop through a range cell by cell

 

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

 

Related examples in the same category