Excel Worksheets åbne/lukke autofiltre

Jeg har brug for at at lukke/åbne autofiltre i alle/nogle af mine workheets. Jeg har lavet en makro, men da antallet af worksheets ændrer sig hele tiden, fejler makroen, hvis der er flere worksheets end makroen er lavet til. Der må være en lettere måde.

Sub IndsætAutofilter()

' IndsætAutofilter Makro
' Makro indspillet
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Next.Select
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Next.Select
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Next.Select
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Next.Select
    Range("A1").Select
    Selection.AutoFilter
End Sub