Show Values in Pivot Table Filter

Sub test()
  Dim blnAllShowing As Long
  Dim pi As PivotItem
  Dim pf As PivotField
  Dim pt As PivotTable
  Dim wks As Worksheet
  Dim ar() As String
  For Each wks In Worksheets
    For Each pt In wks.PivotTables
 
      Debug.Print vbCr & "worksheet """ & wks.Name & """, pivot table """ & pt.Name & """"
 
      For Each pf In pt.PivotFields
 
        Select Case pf.Orientation
 
          Case xlPageField, xlColumnField, xlRowField
 
            'determine if all pivot items are showing
            blnAllShowing = True
            For Each pi In pf.PivotItems
              If pi.Visible = False Then blnAllShowing = False
            Next pi
 
            If blnAllShowing Then
              Debug.Print Tab(3); "pivot field """ & pf.Caption & """"; Tab(40); "No filters."
            Else
              Debug.Print Tab(3); "pivot field """ & pf.Caption & """"; Tab(40); "==> Filter/s on this field."
              For Each pi In pf.PivotItems
                If pi.Visible Then Debug.Print Tab(44); """" & pi.Name & """"
              Next pi
            End If
 
          Case xlDataField, xlHidden
        End Select
 
      Next pf
    Next pt
  Next wks
  Set pi = Nothing
  Set pf = Nothing
  Set pt = Nothing
  Set wks = Nothing
End Sub