VBA kode og power pivot

Hejsa
Jeg har netop lavet nedenstående VBA på en almindelig pivottabel, hvilket virker helt efter hensigten. Jeg vil gerne opnå samme funktion på en power pivot tabel, men kan ikke få visible=false til at virke. Jeg har sat min power pivot kode ind nederst. Nogen forslag til hvad jeg gør forkert?

VBA til alm. pivot tabel.
Sub FiltrerVæk()
'nulstilling af filter, fravælg specifikt pivotitem
    With_ ActiveSheet.PivotTables("Pivottabel1").PivotFields("måned")
    .ClearAllFilters
    .PivotItems("januar").Visible = False
  End With
End Sub

VBA til power pivot
Sub FiltrerDlgVæk()

'Vælg pivottabel "Pivottabel2"  filtrer på "tsbokkart customer" vælg alle pånær DLG vognafregning.
'Pivottabel vælges og filter nulstilles
      With ActiveSheet.PivotTables("Pivottabel2").PivotFields("[BOKKART-PRIS].[TSBOKKART CUSTOMER].[TSBOKKART CUSTOMER]")
            .ClearAllFilters
    .PivotItems.VisibleItemsList = Array("[BOKKART-PRIS].[TSBOKKART CUSTOMER].&[DLG VognAfregning, Axelborg]").Visible = False
   
  End With
End Sub