VBA kopiere celle og slet figur

Hej kloge mennesker.
Jeg har brug for jeres hjælp.
Jeg har en skabelon, hvor jeg har lavet en kode, som kopiere skabelonen og navngiver ud fra en celle. Makroen er linket til en figur. Det fungerer fint.
Jeg har dog et ønske om, at figuren med makroen skal slettes fra kopierne, så den kun eksisterer på skabelonen.
Hvordan skriver jeg det ind i koden?

Sub Copyrenameworksheet()
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("D3").Value <> "" Then
    ActiveSheet.Name = wh.Range("D3").Value
    End If
    wh.Activate
End Sub

Mvh
Mia