Hello everyone.
I use the code below to change the month of a pivot table
Sub Update_month()
'
' Update_month Macro
'
'
Dim ws As Integer
Dim wb As Workbook
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Calendar].[Month]") _
.VisibleItemsList =...