Returns a CalculatedItems collection that represents all the calculated items in the specified PivotTable report. Read-only.
expression.CalculatedItems
expression Required. An expression that returns a PivotField object.
Remarks
For OLAP data sources, this method returns a zero-length collection.
Example
This example creates a list of calculated items and their formulas.
Set pt = Worksheets(1).PivotTables(1)
For Each ci In pt.PivotFields("Sales").CalculatedItems
r = r + 1
With Worksheets(2)
.Cells(r, 1).Value = ci.Name
.Cells(r, 2).Value = ci.Formula
End With
Next