Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Select every other row and apply the formatting
Sub ShadeEverySecondRow()
         range("A2").EntireRow.Select
         Do While ActiveCell.value <> ""
             Selection.Interior.ColorIndex = 15
             ActiveCell.offset(2, 0).EntireRow.Select
         Loop
     End Sub