Sub ShadeEverySecondRow() i = 0 Do i = i + 2 If IsEmpty(Cells(i, 1)) Then Exit Do Rows(i).Interior.ColorIndex = 15 Loop End Sub