Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Is a cell empty
Sub ShadeEverySecondRow()
  Dim i As Integer
  i = 2
  Do Until IsEmpty(Cells(i, 1))
    Cells(i, 1).EntireRow.Interior.ColorIndex = 15
    i = i + 2
  Loop
End Sub