Makro til test af om autofilter eller avanceret filter er aktivt i en tabel

Jeg har en tabel med en masse data - jeg har lavet en makro som sætter et avanceret filter på dataene og en til at rydde filteret igen.

Jeg vil gerne indbygge en test af om data-arket er filtreret eller ej.


Nedenstående giver fejl når alle data er vist - altså ikke filtreret.


Sheets("Data").Select
    ActiveSheet.ShowAllData
    ActiveSheet.ListObjects("Tabel2").ShowTableStyleRowStripes = False
    ActiveSheet.ListObjects("Tabel2").ShowTableStyleRowStripes = True
    Range("Tabel2[[#Headers],[M-nr]]").Select