Range ID and drag & drop to a cell
 

Hello,

I am assigning an ID to a Range consisting of a single cell. (
myRange.ID = 10 )

Now when I drag and drop contents from another cell to this cell the ID
becomes blank which is understood since the source range is moved to
this location now.

The same thing happens if I drag and drop text from another
application. The ID is lost.

Is there a way to retain/recover or even know this ID after a drop
happens from another application?

Regds
GAP


Private Sub Worksheet_Change(ByVal Target As Range)

Debug.Print "Range ID: " & Target.ID

End Sub