sub yyy()
Dim rngObj As Range
If Application.CutCopyMode = xlCopy Then
Set rngObj = Application.blinking ' my source(virtual)
MsgBox "the current address of copied cell is" & rngObj.Address
End If
End Sub

*** Sent via Developersdex http://www.developersdex.com ***