Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False
If Target = PivotTables(1) Then
PivotTables(2).PivotFields("Resolved Year").CurrentPage = PivotTables(1).PivotFields("Open Year").CurrentPage.Caption
Else
PivotTables(1).PivotFields("Open Year").CurrentPage = PivotTables(2).PivotFields("Resolved Year").CurrentPage.Caption
End If
Application.EnableEvents = True
End Sub