Si alguien no se había dado cuenta, aquí os muestro una forma sencilla.

La clave está en el 57.

Sub Guardar()

ActiveSheet.Copy

With ActiveWorkbook

    ruta = "C:\Users\PC01\Desktop\Ejemplo" & ".xlsm"

    .SaveAs Filename:=ruta, FileFormat:=57 

    .Close False

End With

End Sub[/CODE]

Saludos.

perfecto, gracias