Excel VBA Макросы. Как сделать фильтрацию сразу в двух сводных таблицах по значению, указанному в заданной ячейке?

[Посетитель]

Как сделать фильтрацию сразу в двух сводных таблицах по значению, указанному в заданной ячейке?

[Посетитель]

Я нашел решение.

Sub Выбрать_филиал()
ActiveSheet.PivotTables("PivotTableRevenue").PivotFields("Филиал").ClearAllFilters
ActiveSheet.PivotTables("PivotTableRevenue").PivotFields("Филиал").CurrentPage = Range("B4").Value
ActiveSheet.PivotTables("PivotTableCoS").PivotFields("Филиал").ClearAllFilters
ActiveSheet.PivotTables("PivotTableCoS").PivotFields("Филиал").CurrentPage = Range("B4").Value
End Sub

PivotTableRevenue и PivotTableCos - это названия двух сводных таблиц. B4 - ячейка, в которой находится нужное для фильтрации значение.