Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Shade every second row
Sub ShadeEverySecondRow()
  Range("A2").EntireRow.Select
  Do While ActiveCell.Value <> ""
    Selection.Interior.ColorIndex = 15
    ActiveCell.Offset(2, 0).EntireRow.Select
  Loop
End Sub