DragToColumn Property Example
This example prevents the Year field in the first PivotTable report on worksheet one from being dragged to the column position.
Worksheets(1).PivotTables("Pivot1") _ .PivotFields("Year").DragToColumn = False