I've created a combo box to control the same filter on 4 different pivot tables on one worksheet.
I've assigned a Macro to the combo box. The code in the Macro is as follows:


Sub Sales_Rep_Combo_Filter()
'
' Sales_Rep_Combo_Filter Macro
'

    ActiveSheet.PivotTables("PivotTable1").PivotFields("Sales Rep").CurrentPage = Range("AA1").Text
    
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Sales Rep").CurrentPage = Range("AA1").Text
    
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Sales Rep").CurrentPage = Range("AA1").Text
    
    ActiveSheet.PivotTables("PivotTable4").PivotFields("Sales Rep").CurrentPage = Range("AA1").Text
    
   End Sub
When I select a field from the combo box, I get the error in the title of the thread (Unable to set the currentpage property of the pivotfield class).

Note: The cell reference for the combo box is AA1.

Any help on this error would be greatly appreciated.