Excel program:using pattern texture

[gill santiago]

How do I format 1000 lines odd or even cell rows simultaneously using pattern
texture, i can do the individual rows to format using pattern texture but not
100 or 1000 lines

[Chip Pearson]

Try something like the following

Dim LastRow As Long
Dim RowNdx As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = 1 To LastRow Step 2
Rows(RowNdx).Interior.ColorIndex = 6
Next RowNdx



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"gill santiago" <gill [email protected]> wrote
in message
news:[email protected]...
> How do I format 1000 lines odd or even cell rows simultaneously
> using pattern
> texture, i can do the individual rows to format using pattern
> texture but not
> 100 or 1000 lines