PivotFormulas Property Example

This example creates a list of formulas for PivotTable one.

For Each pf in ActiveSheet.PivotTables(1).PivotFormulas
    r = r + 1
    Cells(r, 1).Value = pf.Formula
Next