Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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