PivotTable.CalculatedFields (Excel)

Returns a CalculatedFields collection that represents all the calculated fields in the specified PivotTable report.

Dim cfs As CalculatedFields
Set cfs = ActiveCell.PivotTable.CalculatedFields()