Sub ShadeEverySecondRow() range("A2").EntireRow.Select Do While ActiveCell.value <> "" Selection.Interior.ColorIndex = 15 ActiveCell.offset(2, 0).EntireRow.Select Loop End Sub