Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CellDragAndDrop = True
End Sub
'______________________________________________________
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
End Sub
'______________________________________________________
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Application
.CutCopyMode = False 'Clear clipboard
.CellDragAndDrop = False
End With
End Sub