Disabling drag and drop just in 1 sheet

[glad_ir]

Hi,

Please can anybody advise whether it is possible to disable cell drag and drop for a single sheet in a workbook (or ideally specific cells in 1 sheet)? I am using the code below but it disables for the whole workbook.

thank you,
Iain

Application.CellDragAndDrop = False

 

[diddi]

place this in the code section for the particular sheet

Private Sub Worksheet_Activate() 
    Application.CellDragAndDrop = False
End Sub

and this in the rest

Private Sub Worksheet_Activate() 
    Application.CellDragAndDrop = True
End Sub

 

[glad_ir]

place this in the code section for the particular sheet

Private Sub Worksheet_Activate()
    Application.CellDragAndDrop = False
End Sub

and this in the rest

Private Sub Worksheet_Activate()
    Application.CellDragAndDrop = True
End Sub

perfect.....and logical Thank you

 

[diddi]

perfect.....and logical...
i rarely achieve either

 

[glad_ir]

perfect.....and logical...
i rarely achieve either

lol