Sub ShadeEveryOtherTblRow()
'
' Macro1 Macro
'
'This counter performs the shading on the stated number of rows
Do While intCounter < 7
intCounter = intCounter + 1
'The following highlights the row the cursor is on (the first row that you want shaded)
Selection.EndKey Unit:=wdRow, Extend:=True
'The following formats the row as a shade of grey
With Selection.Cells
With .Shading
.BackgroundPatternColor = -603930625
End With
End With
'The following moves the cursor down two rows
Selection.EndKey Unit:=wdRow
Selection.MoveRight Unit:=wdCell
Selection.EndKey Unit:=wdRow
Selection.MoveRight Unit:=wdCell
Loop
End Sub