Macro to add field into pivot tables

[rubenidas]

Hi all,
I am trying to create a macro that will insert the field "Month" into the 'Axis Fields (Categories)' section on all pivot tables in my workbook. I created a dashboard that has slicers for all kinds of stuff. Now i want a button that will break down the view into months, and remove the month fields when it is clicked again.

FYI - the pivot tables are not really on the dashboard sheet, only the graphs. The pivot tables are on individually sheets which are hidden. There's like 10 of them.

Hope this makes sense!

Sub AddMonth()'
' AddMonth Macro
'
    Dim Pvt As PivotTable
    
        For Each Pvt In ActiveSheet
        With Pvt.PivotFields("Month")
        
        .Orientation = xlRowField
        .Position = 2
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

 

[mart37]

Sub Add_Delete_Month()
    Dim ws As Worksheet
    Dim Pvt As PivotTable
    Dim PvtField As PivotField
    Dim FieldExists As Boolean
    For Each ws In ActiveWorkbook.Sheets
        For Each Pvt In ws.PivotTables
            For Each PvtField In Pvt.PivotFields
                If PvtField.Name = "Month" Then
                    If PvtField.Orientation = xlRowField Then FieldExists = True
                End If
            Next
            If FieldExists Then
                Pvt.PivotFields("Month").Orientation = xlHidden
            Else
                With Pvt.PivotFields("Month")
                    .Orientation = xlRowField
                    .Position = 2
                End With
            End If
        Next
    Next
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub