Excel - Borrar shapes o autoformas en el nuevo libro creado con macros

Sub GeneraCopia()
Dim origen As String, ruta As String, nombre As String, destino As String
origen = "BonoparaAlimentos.xlsm"
ruta = Range("L1").Value
nombre = Range("L2").Value
destino = ruta & "\" & nombre & ".xlsm"
Workbooks(origen).SaveCopyAs destino

End Sub

ALTAMENTE AGRADECIDO POR SU GRAN AYUDA EL CODIGO. ME FUNCIONA.
SOLO QUERIA SI ME AYUDASE A QUE EN EL LIBRO DESTINO NO SE COPIEN LAS
SHAPES O AUTOFORMAS DE LOS BOTONES, YA QUE NECESITO GENERAR UNA COPIA
DE CADA LIBRO POR SI NECESITO CONSULTAR Y EMITIR DE NUEVO RECIBOS DE PAGO DE ESE PERIODO
QUE ESTOY GUARDANDO YA QUE EL LIBRO DEBO SEGUIR USANDOLO PARA PERIODOS SUCESIVOS.

MUCHISIMAS GRACIAS.
PD. LO CONSULTE EN BING Y ME DA ERROR EL CODIGO QUE ME
SUMINISTRA EL BUSCADOR.

Para generar una copia del libro de Excel sin copiar las formas o botones (shapes o autoformas), puedes utilizar el siguiente código:


Este código desactiva la actualización de pantalla y establece el modo de copiado en False. Luego, copia las hojas del libro de origen sin las formas seleccionadas y las pega en un nuevo libro. A continuación, se eliminan todas las formas del nuevo libro antes de guardarlo como la copia final.