Something like this perhaps,

Private Sub Worksheet_Change(ByVal Target As Range)
Static tmr As Single
If Timer - tmr < 0.1 Then
MsgBox "Dragged & Dropped"
End If
tmr = Timer
End Sub


Regards,
Vic Eldridge


"Gap" wrote:

Hello,

Is there a way to detect that the event (WorkSheet_Change or any other)
occured due to a cell drag copy of a cell and not a regular cell edit?

Thankyou.

Sincerly
Gap