Code drag and drop

[Jonsson]

Hi all,

I have this code:

Dim oCtls As CommandBarControls, oCtl As CommandBarControl
Set oCtls = CommandBars.FindControls(ID:=21) ''Cut
If Not oCtls Is Nothing Then
For Each oCtl In oCtls
oCtl.Enabled = False
Next
End If
Set oCtls = CommandBars.FindControls(ID:=522) ''Options
If Not oCtls Is Nothing Then
For Each oCtl In oCtls
oCtl.Enabled = False
Next
End If
With Application
.OnKey "^x", ""
.OnKey "+{Del}", ""
.CellDragAndDrop = False
End With
End Function

Unfortuannly, this is also means that the drag and drop doesn't work.

Is it someway to get "drag and drop" function to work, and in tha
case, also get it to work as paste special, values? All in the cod
above?

Any help is apprecciated!!

//Thoma