Hi,
Not sure what you mean by drag off.

You can freeze a field using the below function PivotFieldFreeze.
Pivot freeze would have to be called on each field.

Sub test()
Dim pf As PivotField
Set pf = ActiveSheet.PivotTables(1).PivotFields("A") '<--- change field
name here
PivotFieldFreeze pf
End Sub

Function PivotFieldFreeze(PivotField As PivotField)
With PivotField
.DragToColumn = False
.DragToData = False
.DragToHide = False
.DragToPage = False
.DragToRow = False
End With
End Function

"Prabhakar" wrote:

Hi,
Is there a way to turn off dragging for a Pivot Table.

thanks
prabhakar