Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Shade every second row

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