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(
Alternating row colors can be done using conditional formatting: