Grüezi Angus
ich nehme auch gern ein VBA *dackelblick*
Hier kann auch nichts anderes wirklich helfen… 
Da ich allerdings in diesen Sachen nicht so versiert bin, habe
ich mir schon etwas aus dem Netz gesucht. Dies hilft jedoch
nur bei Pivots, die auf einem Arbeitsblatt sind.
Dies habe ich im Netz finden können (Verfasser: Thomas Ramel -
dank dir, Thomas!):
Ach, ein ‚alter Schinken‘
Schön, dass der auch heute noch hilft 
Prinzipiell musst Du diesen umschreiben auf alle Tabellenlätter und diese in einer Schleife durchlaufen und dort dann alle PT’s in den Blättern aktualisieren und so vergleichen.
Das kannst Du mit dem
Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
in ‚Diese Arbeitsmappe‘ tun.
Dieses Ereignis feuert bei jedem Update einer PT (egal welcher) und diese kannst Du dann als Basis nehmen um alle anderen PTs ebenfalls zu aktualisieren und den Berichtsfilter zu aktualisieren.
WEnns mir recht ist, gibts da auch bereits etwas im Netz…
…aha hier habe ich es gefunden und auch gleich angepasst
Kopiere die folgenden Zeilen ins Modul ‚Diese Arbeitsmappe‘ und ändere dann mal ein Seitenfeld einer beliebigen PT.
Private Sub Workbook\_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Dim wS As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
On Error GoTo ErrorHandler
Application.EnableEvents = False
For Each wS In ThisWorkbook.Worksheets
For Each pt In wS.PivotTables
If pt.Name Target.Name Then
For Each pf In Target.PageFields
pt.PivotFields(pf.Value).CurrentPage = \_
Target.PivotFields(pf.Value).CurrentPage.Value
Next pf
End If
Next pt
Next wS
ResumePoint:
Application.EnableEvents = True
Exit Sub
ErrorHandler:
If Err.Number = 1004 Then
pt.TableRange1.Select
End If
Resume ResumePoint:
End Sub
Bei jeder Veränderung in einer PT springt der Code an und setzt alle Bereichtsfilter so wie sie in der aktuellen PT gesetzt sind.
Als kleine Erweiterung markiert er eine PT falls bei deren Aktualisierung ein Fehler auftreten sollte, z.B. wenn sie keine Seitenfelder hat oder wenn sie andere PTs überlappen sollte.
–
Mit freundlichen Grüssen
Thomas Ramel