Ejemplo macro para insertar y copiar hojas, renombrar y borrar imágenes seleccionadas

[MIJAF35]

Amigos les dejo esta macro con ayuda de AlexanderS para crear una  una hoja en la cual agregue el nombre a la hoja en base a una celda señalada( en este caso es la fecha del informe en la hoja ingreso), además borra solo el botón que asigna  la  macro y borra imágenes pero no todas las imágenes que tengo en la ficha de ingreso ( solo le asigne un nombre al botón que ejecuta la macro . Espero que ha alguien le sirva tanto como me sirvio a mi 

 

Sub guardar()

Application.ScreenUpdating = False

Nombre_Hoja = Format(Range("d13"), "dd-mm-yyyy")

On Error Resume Next
Set hoja = Sheets(Nombre_Hoja)

If Err.Number = 9 Then
    
    Sheets("ingreso").Copy After:=Sheets(1)
    ActiveSheet.Name = Nombre_Hoja
    
     
    For Each shp In ActiveSheet.Shapes
        If shp.Name = "imagenborrar" Then
                   shp.Delete
        End If
    Next
    
    
    Sheets("ingreso").Select

Application.ScreenUpdating = True

Range("c19:e38").ClearContents

MsgBox ("guardado con éxito!!!!")

Else

MsgBox "Fecha del informe ya existe, ¡FAVOR CORREGIR FECHA!!! Y  guardar"

End If

End Sub