CalculatedFields Method 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