Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub aTest()
Dim pt As PivotTable, pf As PivotField
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.PageFields
Next
Next
End Sub