Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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