Shade every second row by using the Do Until Loop : Row Format « Excel « VBA / Excel / Access / Word






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

Shade every second row by using the Do Until Loop

 
     Sub ShadeEverySecondRow()
         Dim lRow  As Long
         lRow = 2
         Do Until IsEmpty(cells(lRow, 1))
             cells(lRow, 1).EntireRow.Interior.ColorIndex = 15
             lRow = lRow + 2
         Loop
     End Sub








Related examples in the same category

1.Shade every second row
2.Select every other row and apply the formatting:
3.Shade every second row by using the Do Loop