Excel program

[Guest]

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



in message
news:[email protected]...