Returns a CalculatedFields collection that represents all the calculated fields in the specified PivotTable report. Read-only.
expression.CalculatedFields
expression Required. An expression that returns a PivotTable object.
Example
This example prevents the calculated fields from being dragged to the row position.
For Each fld in _
Worksheets(1).PivotTables("Pivot1") _
.CalculatedFields
fld.DragToRow = False
Next