cLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 to cLastRow Step 2
cells((i,"A").Entirerow.ColorIndex = 35
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Helen" wrote in message
...
I have worksheets with several hundred rows and want to record a macro
that
will highlight every other row, starting at row 2, until the end. I can
record a macro to highlight several rows but how can I repeat until the
end
of the worksheet?