Get name of pasted shape in another sheet

[koc]

Hi all,
it there solution how to get shape name/id of pasted shape in another sheet. When I use the debug method/steps, cutting/pasting is done and in the second sheet the object/shape looks like it's selected, but I can't retrieve the name of the object/shape

Here is my try:

Dim shapeName As String 'name of shape in active sheet

ActiveSheet.Shapes(shapeName).Select
ActiveSheet.Shapes(shapeName).Cut
Worksheets("Sheet2").Activate
ActiveSheet.Paste

Debug.Print ActiveSheet.Shapes(Application.Caller).Name

Thank you in advance.