Paste "live date" as picture with specific name

[Bret1]

On my sheet, I have a cell with today's date "=TODAY()" ... I have another cell with a picture of the live date (as a date reference) from last time.
Whenever I run the Macro, I want it to delete the old date pic (named "Picture 20"), copy the "live date", and paste it as a new pic where the old pic was.... And name the new pic "Picture 20" same as the old pic so it'll delete it again next time I run the macro.

I can "record" a new Macro and get the basics (I'll post below), but the problem is that I need it to name the new pasted pic the same name as the deleted pic was originally - so it'll be able to delete the pic next time I run the Macro.

Can I force it to give the newly pasted pic a specific name?
Thanks

Here is what I have...

Sub Date_Move_As_Pic()
'
' Date_Move_As_Pic Macro
'


'
    ActiveSheet.Shapes.Range(Array("Picture 20")).Select
    Selection.Delete
    Range("AD17:AG18").Select
    Selection.Copy
    Range("K17:N17").Select
    ActiveSheet.Pictures.Paste.Select
    Application.CutCopyMode = False
    Range("L21").Select
End Sub

 

[Bret1]

Was able to do it this way....
Select the object in range and delete, select live date and paste as pic...

Sub MoveDate()
'
' MoveDate Macro
'


'
Dim shp As Shape
Dim r As Range


Set r = Range("K17:N18")


For Each shp In ActiveSheet.Shapes
    If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), r) Is Nothing Then _
        shp.Select Replace:=False
Next shp
    Selection.Delete


    Range("AD17:AG18").Select
    Selection.Copy
    Range("K17:N18").Select
    ActiveSheet.Pictures.Paste.Select
    Application.CutCopyMode = False
    Range("O5").Select
    
Application.Run "SelectShape"
End Sub