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(
In my Excel 2010, there is an option to format as table, where you can also select a range and headers. No need for scripting.