Cambiar nombre un object

Tengo una serie de imágenes en una hoja excel, y con una macro las copio y las pego en otra hoja, pero lo que necesito es poder cambiar el nombre de esta imagen cuando pasa a la nueva hoja. Osea, hago lo siguiente:
ActiveSheet.Shapes("Object 68").Select
Selection. Copy
Y luego :
ActiveSheet. Paste
Pero claro no se el nombre que le asigna, en este proceso automático y sobre todo si este nombre se puede cambiar con macro.