Speeding up add/remove PivotTable to Slicer VBA

[bigsim]

I have a workbook that has a number of PivotTables spread across a number of worksheets. There's a bunch of slicers on one of the worksheets, and they're pretty slow to load after changing filters/selections. My idea was to remove the Pivot Tables that aren't in the same worksheet as the slicers from the slicers when that worksheet is activated, and add them back again when the worksheet is deactivated, to improve performance. I've written some code to do this, but it's prohibitively slow at the moment - it takes about a minute to run, and the improvement in slicer performance it affords is only something like 1 second instead of 4 seconds. Is there any way to speed up what I've got? TIA!

Private Sub Worksheet_Deactivate()
'
' OnDeselect Macro
'
'
    Application.Calculation = xlManual
    Application.ScreenUpdating = False
    pts = Array( _
        Worksheets("Sheet1").PivotTables("Pivot1"), _
        Worksheets("Sheet2").PivotTables("Pivot2"), _
        Worksheets("Sheet3").PivotTables("Pivot3"), _
        Worksheets("Sheet3").PivotTables("Pivot4"), _
        Worksheets("Sheet3").PivotTables("Pivot5"), _
        Worksheets("Sheet3").PivotTables("Pivot6"), _
        Worksheets("Sheet3").PivotTables("Pivot7"), _
        Worksheets("Sheet4").PivotTables("Pivot8"), _
        Worksheets("Sheet5").PivotTables("Pivot9"), _
        Worksheets("Sheet6").PivotTables("Pivot10"), _
        Worksheets("Sheet7").PivotTables("Pivot11"), _
        Worksheets("Sheet7").PivotTables("Pivot12"), _
        Worksheets("Sheet7").PivotTables("Pivot13"), _
        Worksheets("Sheet7").PivotTables("Pivot14"), _
        Worksheets("Sheet7").PivotTables("Pivot15") _
    )
    ss = Array( _
        ActiveWorkbook.SlicerCaches("Slicer1"), _
        ActiveWorkbook.SlicerCaches("Slicer2"), _
        ActiveWorkbook.SlicerCaches("Slicer3"), _
        ActiveWorkbook.SlicerCaches("Slicer4") _
    )
    For Each pt In pts
        For Each s In ss
            s.PivotTables.RemovePivotTable (pt)
        Next s
    Next pt
        Application.Calculation = xlAutomatic
        Application.ScreenUpdating = True
        
End Sub

 

[RoryA]

A reminder:

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at:

Speeding up add/remove PivotTable to Slicer VBA

I have a workbook that has a number of Pivot Tables spread across a number of worksheets. There's a bunch of slicers on one of the worksheets, and they're pretty slow-ish to load after changing fil...

stackoverflow.com

There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.