Hi Excel Experts,

Can anyone help me to edit the below code to allow refresh all pivots on the same worksheet upon changes on Month filter only, please? At the moment this code I found will refresh all pivots on same worksheet upon changes on any filter.

Appreciate your help.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Dim ptMain As PivotTable
Dim pt As PivotTable
Dim pfMain As PivotField
Dim pf As PivotField
Dim pi As PivotItem
Dim bMI As Boolean

On Error Resume Next
Set ptMain = Target

Application.EnableEvents = False
Application.ScreenUpdating = False

For Each pfMain In ptMain.PageFields
    bMI = pfMain.EnableMultiplePageItems
    For Each pt In Me.PivotTables
        If pt.Name <> ptMain.Name Then
            pt.ManualUpdate = True
            Set pf = pt.PivotFields(pfMain.Name)
            bMI = pfMain.EnableMultiplePageItems
            With pf
                .ClearAllFilters
                Select Case bMI
                    Case False
                        .CurrentPage = pfMain.CurrentPage.Value
                    Case True
                        .CurrentPage = "(All)"
                        For Each pi In pfMain.PivotItems
                            .PivotItems(pi.Name).Visible = pi.Visible
                        Next pi
                        .EnableMultiplePageItems = bMI
                End Select
            End With
            bMI = False
            Set pf = Nothing
            pt.ManualUpdate = False
        End If
    Next pt
Next pfMain

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub
Thanks in advance.
DZ