Try something like this in the workbook code:
Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Application.EnableEvents = False
If Sh.Name = "Sheet1" Then
Worksheets("Sheet2").PivotTables(1).PageFields("month").CurrentPage = "" & Target.PageFields("month").CurrentPage
Else
Worksheets("Sheet1").PivotTables(1).PageFields("month").CurrentPage = "" & Target.PageFields("month").CurrentPage
End If
Application.EnableEvents = True
End Sub
You will need to adjust for sheet names, pagefield name etc.
Bookmarks