Makrofiltrering af forskellige ark i samme projektmappe

Er det muligt vha makro-filtrering at lave en forskellige filtreringer i forskellige ark i samme projektmappe.

I et ark skulle makroen fx være:

Sub FiltrerFVU()
'
' FiltrerFVU Makro
' Makro indspillet 28-08-2006 af visto
'
With Selection
      .AutoFilter
      .AutoFilter field:=1, visibledropdown:=False
      .AutoFilter field:=2, visibledropdown:=False
      .AutoFilter field:=3, visibledropdown:=False
      .AutoFilter field:=4, visibledropdown:=False
      .AutoFilter field:=5, visibledropdown:=False
      .AutoFilter field:=6, visibledropdown:=False
      .AutoFilter field:=7, visibledropdown:=False
      .AutoFilter field:=8, visibledropdown:=False
      .AutoFilter field:=9, visibledropdown:=False
      .AutoFilter field:=10, visibledropdown:=False
      .AutoFilter field:=11, visibledropdown:=False
      .AutoFilter field:=12, visibledropdown:=False
      .AutoFilter field:=13, visibledropdown:=False
      .AutoFilter field:=14, visibledropdown:=False
      .AutoFilter field:=16, visibledropdown:=False
      .AutoFilter field:=18, visibledropdown:=False
      .AutoFilter field:=20, visibledropdown:=False
End With
'
End Sub


En anden filtrering skal være:

Sub Filtrer()
'
' Filtrer Makro
' Makro indspillet 28-08-2006 af visto
'
With Selection
      .AutoFilter
      .AutoFilter field:=1, visibledropdown:=False
      .AutoFilter field:=2, visibledropdown:=False
      .AutoFilter field:=3, visibledropdown:=False
      .AutoFilter field:=4, visibledropdown:=False
      .AutoFilter field:=5, visibledropdown:=False
      .AutoFilter field:=6, visibledropdown:=False
      .AutoFilter field:=7, visibledropdown:=False
      .AutoFilter field:=8, visibledropdown:=False
      .AutoFilter field:=9, visibledropdown:=False
      .AutoFilter field:=11, visibledropdown:=False
      .AutoFilter field:=13, visibledropdown:=False
      .AutoFilter field:=15, visibledropdown:=False
      .AutoFilter field:=17, visibledropdown:=False
      .AutoFilter field:=19, visibledropdown:=False
      .AutoFilter field:=20, visibledropdown:=False
      .AutoFilter field:=21, visibledropdown:=False
      .AutoFilter field:=22, visibledropdown:=False
      .AutoFilter field:=23, visibledropdown:=False
      .AutoFilter field:=25, visibledropdown:=False
      .AutoFilter field:=26, visibledropdown:=False
      .AutoFilter field:=27, visibledropdown:=False
      .AutoFilter field:=28, visibledropdown:=False
End With
'
End Sub

Jeg kan ikke få det til at virke. Den første filtrering virker som den skal, men når jeg laver den anden, og afpiller den mens det andet ark er valgt, så får jeg, når jeg vil afspille makroen flg. besked: "Run time error '1004': Metoden AutoFilter for klassen Range mislykkedes."

Hvordan får jeg løst problemet, hvis det kan løses?