Ændre i PivotDiagram vha. VBA Kode

Hej,

Jeg har nedenstående kode, som jeg ikke kan fungerer. Koden fejler på:    ActiveSheet.PivotTables("Koncern").PivotFields("Uge").CurrentPage = "(All)"

I pivotdiagrammet er der 6 .pivotitems, som går fra 44 til 49

Jeg har 12 pivotdiagrammer, hvor jeg gerne vil have mulighed for at ændre PivotFields("Uge").

Det skal siges, at mine pivotdiagrammer og pivottabeller er på en anden fanen "PivotData". De Pivotdiagrammer jeg har lavet nedenstående kod på, ligger på fanen "Graf".

Jeg havde tænkt mig at kopirer nedenstående kode til alle 12 diagrammer, og så ændre i diagramnavnet. Men tænker at der er en smartere måde?

pft.

    ActiveSheet.ChartObjects("KonKontant").Activate
    ActiveChart.ShowAllFieldButtons = True
    ActiveSheet.ChartObjects("KonKontant").Activate
    ActiveSheet.PivotTables("Koncern").PivotFields("Uge").CurrentPage = "(All)"
    With ActiveSheet.PivotTables("Koncern").PivotFields("Uge")
        .PivotItems("44").Visible = False
        .PivotItems("45").Visible = True
    End With
    ActiveChart.ShowAllFieldButtons = False
End Sub