Hello,

I am filtering roughly 500 rows of data, and depending on the user's
choice, some rows are hidden.

For appearances, I like to do a banding of the data. Normally I would
use VBA like the following:

Cells(1, 1).Activate
j = 2
Do Until IsEmpty(Cells(j, 1))
Range("A" & j & ":" & "W" & j).Interior.ColorIndex = 40
j = j + 2
Loop

I hide the rows filtered using this code:

Rows(ActiveCell.Row).Hidden = True


All replies very much appreciated!



Best regards,
-NorTor