kopier billede og sæt ind i ny celle, og ændre navnet på billedet som lige er ind sat

Jeg skal kopiere et billede på baggrund af navnet "up" og sætte det ind i felt "F20", som ikke giver noget problem, se koden herunder. Men det nye billede skal navngives "up2" og det kan jeg ikke. Er der evt en metode hvorpå man "selecte" det objekt som lige har indsat?

Sub navngiv()

ActiveSheet.Shapes("up").Select

With Selection
.Copy
End With

With Range("F20")
.Select
ActiveSheet.Paste
End With

End sub