Figured out why the snippet of code didn't work:

Q4: I was doing a tutorial on a MS website (http://tinyurl.com/3dcpg)
but the first example doesn't work for me:


Sub ColorEverySecondRow()
Const Gray = 15
Range("A2").EntireRow.Select
Do While ActiveCell.Value < ""

This assumes there are values in column A of activeworksheet - to
colour alternate rows in blank worksheet replace with: ___Do While
ActiveCell.Value = ""___

Selection.Interior.ColorIndex = Gray
ActiveCell.Offset(2,0).EntireRow.Select

A2 is still ActiveCell(?) - this seems to work:

ActiveCell.Offset(2, 0).Select
ActiveCell.EntireRow.Select

Loop
End Sub