this is the correct coding.
it goes in the This Workbook module, as i said before.

for testing purposes, there are two msgboxes that pop up. obviously
you won't want your users to know you've turned this off! so when
you're done testing, add an apostrophe '
before the words "msgbox"
then it won't run anymore.
:)
susan
=======================
Option Explicit

Private Sub Workbook_Open()
Application.CellDragAndDrop = False
MsgBox "drag & drop is OFF"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CellDragAndDrop = True
MsgBox "drag & drop is ON"
End Sub
===============================