VBA 2007: How to get object name when inserted in order to delete later

[SamT]

Sub deleteallShapes()
   Shapes.SelectAll
   Selection.Delete
End Sub

Note that if you Insert all pictures on a Worksheet then you can name each one and refer to it by Name when copying to to another sheet or UserForm

Dim Pieces As Object
Set Pieces = Sheets("Sheet1").Shapes

'Worksheet2 'Insert 'Pieces("ABC")