How can I change this worksheet code to a button hit?

[JJBennett]

I found some code on the Contextures website that takes pivot table selections from one worksheet, and updates the pivot tables on all other worksheets to match. It's not tied to a control - it is active on the worksheet, so that each time a filter is updated, it automatically writes to the others.

It works great - but I also have a macro on my page that loops - and it's causing this code to take a long time to process. For each loop through my macro, this one keeps updating everything across the workbook.

So - how can I change this so that it can be run via button hit, instead of being always active on the worksheet?

Thanks!

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
On Error Resume Next
Dim wsMain As Worksheet
Dim ws As Worksheet
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 wsMain = ActiveSheet
Set ptMain = Target

Application.EnableEvents = False
Application.ScreenUpdating = False

Set pfMain = ptMain.PivotFields("Fiscal year/period")
bMI = pfMain.EnableMultiplePageItems
For Each ws In ThisWorkbook.Worksheets
        For Each pt In ws.PivotTables
 If ws.Name & "_" & pt <> wsMain.Name & "_" & ptMain Then
                pt.ManualUpdate = True
                Set pf = pt.PivotFields("Fiscal year/period")
                        bMI = pfMain.EnableMultiplePageItems
            With pf
                    .ClearAllFilters
                    Select Case bMI
                        Case False
                            .CurrentPage = pfMain.CurrentPage.Value
                        Case True
                            .CurrentPage = "(Main Menu)"
                            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 ws

    
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub