I guess I can do that. It just seems like a lot of extra work. Are there any
other ideas. Doesn't the program have some sort of fuction to allow formats
to stay the same?
For Counter = 1 To 40
'If the row is an odd number (within the selection)...
If Counter Mod 2 = 1 Then
'Set the pattern to xlGray16.
Rows(Counter).Interior.Pattern = xlGray16
Else
Rows(Counter).Interior.Pattern = nil
End If
Next
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.