Подскажите, как связать фильтры сводных таблиц, что бы при изменение значения в первой данные пересчитывались во всех.
Есть такой текст, но

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Dim sCurPage As String
Application.EnableEvents = False
sCurPage = Target.PivotFields("Банк").CurrentPage
If Target.Name = "СводнаяТаблица3" Then
ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Банк").CurrentPage = sCurPage
Else
ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Банк").CurrentPage = sCurPage
End If
Application.EnableEvents = True
End Sub

он не работает