Do you mean Drag And Drop of cells on a worksheet? If so, you can
use the Workbook_SheetChange event. It will run twice -- once
when the original cell changes to an empty cell and then again
the value is placed in the new cell. In the ThisWorkbook code
module, you code like

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target
As Range)
Debug.Print Sh.Name, Target.Address, Target.Value
End Sub





--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Drag and Drop" <Drag and wrote
in message
...
How we can track event of Drag and Drop???