Вырезать форму (изображение) и вставить в другой лист с пользовательским идентификатором

Question

У меня проблема.

Я хотел бы вырезать свою форму и вставить ее на другой лист с указанным идентификатором. Затем я хочу вырезать из этого целевого листа и вставить его в исходный лист (переместиться назад).

Мой код выглядит следующим образом:

 Sub Location()
 ActiveSheet.Shapes("Textbox_Location1").Copy
 Sheets("Readme").Range("AA1").PasteSpecial
 Selection.Name = "Location"
 End Sub


 Sub Locationremove()
 Sheets("Readme").Shapes("Location").Cut
 ActiveSheet.Range("F7").PasteSpecial
 Selection.Name = "Textbox_Location1b"
 End Sub

Однако я не могу этого сделать потому что форма меняет идентификатор каждый раз при вставке в целевой лист. Есть ли способ предотвратить идентификацию его матери или хотя бы пользовательский?

Приведенный ниже код дает тот же результат

Sub Location()
ActiveSheet.Shapes("Textbox_Location1b").Copy
Sheets("Readme").Range("AA1").PasteSpecial
Sheets("Readme").Shapes(Sheets("Readme").Shapes.Count).Select
Selection.Name = "Textbox_Location1b"
End Sub