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