filtered rows getting shaded alternately (conditional formatting)
 

Dear Experts:

The following formula (=MOD(SUBTOTAL(3,$A$1:$A2),2) as a conditional
format keeps up alternate shading even if a list is filtered

Now I would like to use a macro solution to automate this process with
the following requirements:

- The List is in Sheet 1 and has the following name: 'Sheet 1!
DataList'
- The macro solution should allow for extension of the list below the
named range, i.e. a dynamic named range is to be used in the macro
- Alternate grey shading is to be applied

Help is much appreciated.

Thank you very much in advance.

Regards, Andreas