Private iColumn

'--------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim iArr() As String
    
    Sheets("База данных план").Unprotect "***"
    Sheets("План по областям").Unprotect "***"
       
    'Теперь надо добраться до списка фильтра "Показатель"
    With Sheets("План по областям").PivotTables("СводнаяТаблица2").PivotFields("Показатель").PivotItems
         ReDim iArr(1 To .Count, 1 To 3)              'В последней строке фильтр "пусто"
         For iColumn = 1 To .Count                    'Для строк с установленным отбором (включенным флажком).
             With .Item(iColumn)
                 iArr(iColumn, 1) = .Name             'В принципе, эти поля имеют одно и то же значение.
                 iArr(iColumn, 2) = .Value
                 iArr(iColumn, 3) = .Visible          'вот здесь у меня валится на последнем элементе коллекции,
                                                      'потому как Visible is Boolean, а у меня это строка
                 'iArr(iColumn, 2) = .Caption
                 'iArr(iColumn, 3) = .SourceName
                 'iArr(iColumn, 4) = .SourceNameStandard
             End With
         Next
    End With
    
    'Очистить список фильтра
    Sheets("План по областям").PivotTables("СводнаяТаблица2").PivotFields("Показатель").ClearAllFilters
    
    'Отметить флажками сохраненные значения фильтра, если они будут найдены
    With Sheets("План по областям").PivotTables("СводнаяТаблица2").PivotFields("Показатель").PivotItems
         For iColumn = 1 To .Count                    'Для строк с установленным отбором (включенным флажком).
             With .Item(iColumn)
                 SearchName = .Name
'.............. и как теперь это имя найти в массиве, я не знаю
             End With
         Next
    End With

    'Сформировать сводную таблицу
    Sheets("План по областям").PivotTables("СводнаяТаблица2").PivotCache.EnableRefresh = True
    Sheets("План по областям").PivotTables("СводнаяТаблица2").PivotCache.Refresh
    
    Sheets("План по областям").Protect "***", DrawingObjects:=True, Contents:=True, AllowSorting:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    Sheets("База данных план").Protect "***", DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

End Sub