Excel - Archivos excel creados con macro no abren

Buenos días tengo un problema con una macro que genera una copia de todo el libro origen en un libro destino con el nombre y ruta de ese libro destino están en celdas del libro origen, pero una vez creado el libro destino Este libro no me abre y me sale el sgte msj : Excel no puede abrir el archivo porque el formato o la extensión de este no son validos. Compruebe que el archivo no se ha dañado y que la extensión del mismo coincide con el formato del archivo.
adjunto la macro:


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 & ".xlsx"
Workbooks(origen).SaveCopyAs destino

End Sub

UN MILLON DE GRACIAS SE QUE PODRAN AYUDARME CON ESTO


[email protected]

Sube el libro y vemos cual es el problema.

En la macro solo veo uno y no se si es la causa:


Falta ver que hay en L1 y L2.

Se puede hacer más sencillo:



Saludos.
\\//_

La solución al problema es poner la misma extensión al destino que la que tiene el origen.





Saludos.
\\//_