Change PivotTable filter with cell reference

[domtrump]

I'm using the code below to change the Month number in all od the PowerPivot tables in my workbook. I'd like it to change from hard-coding the month in the VBA to get it to read the value of cell D5 on a worksheet called "Control" Can you tell me the proper syntax to do this? When I try to use a regular cell reference, nothing happens. Thanks.

Sub ChgMnth()
     Dim wks As Worksheet
     Dim pvt As PivotTable
     
     On Error Resume Next
     For Each wks In Worksheets
         For Each pvt In wks.PivotTables
             pvt.PivotFields("[TOPSLOT].[RMONTH].[RMONTH]").CurrentPageName = "[TOPSLOT].[RMONTH].&[5.]"
     
         Next pvt
     Next wks
     End Sub

 

[ImkeF]

Why not use switch to slicer-control instead: You can use one slicer to filter all desired Pivot tables at once:

Add a slicer to a Pivot table. Then right click the slicer - choose "Report Connections" & click all other Pivot tables that should be controlled by this slicer as well.

So the only thing to do will be to click the new month once for the whole workbook.

 

[domtrump]

Thanks. I'll give it a shot.