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