VBA code to clear all filters in pivot table fields

Sub UnhideAllPivotItems()

Dim p As PivotTable
Dim pf As PivotField
Dim pfi As PivotItem


Set p = Sheet1.PivotTables(1)

'Unhide all non page-field pivot items
For Each pf In p.PivotFields

    For Each pfi In pf.PivotItems

        If Not pfi.Visible Then pfi.Visible = True
    
    Next pfi

Next pf

'Unhide page field pivot items
For Each pf In p.PageFields

    pf.CurrentPage = "(All)"
    
Next pf

End Sub

Sub maybe()
 
  Dim pt As PivotTable
  Dim pf As PivotField
  Dim pi As PivotItem
  Dim wks As Worksheet
 
  Application.ScreenUpdating = False
 
  For Each wks In ActiveWorkbook.Worksheets
    For Each pt In wks.PivotTables
      'set to manual update for speed
      pt.ManualUpdate = True
      'ensure there are no old ghost items in the item lists
      pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
      pt.PivotCache.Refresh
 
      For Each pf In pt.PivotFields
        If pf.Orientation <> 0 Then
          If pf.Orientation = xlPageField Then
            pf.CurrentPage = "(All)"
          Else
            For Each pi In pf.PivotItems
              pi.Visible = True
            Next pi
          End If
        End If
      Next pf
 
      pt.ManualUpdate = False
    Next pt
  Next wks
 
  Set pi = Nothing
  Set pf = Nothing
  Set pt = Nothing
  Set wks = Nothing
 
End Sub