I\'ve come up with the following to alternate row colors within a specified range:
Sub AlternateRowColors() Dim lastRow as Long lastRow = Range(\"A1\").End(
Well, you can delete the else part, since you will leave it in the default color
else