VBA. Фильтрация сводных

[nerv]

Всем привет

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

Private Sub SetPivotItemsFilter(ByRef Pivot As PivotTable, _
                                ByRef PivotField As PivotField, _
                                ParamArray ItemNames() As Variant)
    Dim PivotItem As PivotItem
    Dim ItemName As Variant
    
    Pivot.ManualUpdate = True
    
    For Each PivotItem In PivotField.PivotItems
        PivotItem.Visible = False
        
        For Each ItemName In ItemNames
            If StrComp(PivotItem.Name, ItemName, vbTextCompare) = 0 Then
                PivotItem.Visible = True
                Exit For
            End If
        Next
    Next
    
    Pivot.ManualUpdate = False
    Pivot.Update
End Sub

Проблема в том, что, если сводная 180 000 тыс. строк, то он работает долго. При 4 500 нормально.

1. Как ускорить?
2. Возможно ли это?
3. Может я вообще что-то делаю не так?