Refresh pivot table without updating filter

Hi,

I have a macro to refresh all pivottables in my workbook. Each pivottable source from the same data pool - in addition I have a filter on each pivottable. Is there a way to fix this filter, such that once the source data is updated, the filter doesn't change? Or to only refresh the "data" in the pivottable?

My code for refreshing all pivottables is given below.

Dim pvt As PivotTable
Dim sh As Worksheet
Application.Calculation = xlManual
For Each sh In Worksheets
For Each pvt In sh.PivotTables
pvt.RefreshTable
Next pvt
Next sh
Calculate
Application.Calculation = xlAutomatic

Thanks in advance.

Hi,

Please check if the following works:

Dim Sheet as WorkSheet, Pivot as PivotTable
For Each Sheet in ThisWorkbook.WorkSheets
For Each Pivot in Sheet.PivotTables
Pivot.RefreshTable
Pivot.Update
Next

Hi,

Thank you for your input. Unfortunately, it doesn't have the desired effect. The filter changes.

I have googled around, but I cannot find any things on it.

\\Lasse