En esta macro cambiar nombre agregando día de ejecución y destino

Te paso la macro actualizada:

Sub Guardar_como_Complemento()
'Guardar como Complemento
'Por.Dante Amor
DatoFecha = Format(Date, "dd-mm-yyyy")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
ruta = l1.Path & "J:\MODULOS\"
arch = l1.Name
nomb = Left(arch, InStrRev(arch, ".") - 1)
arch2 = nomb & ".xlam"
l1.SaveCopyAs ruta & "Mio.xlsm" & DatoFecha
Workbooks.Open ruta & "Mio.xlsm"
ActiveWorkbook.SaveAs _
Filename:=ruta & arch2, _
FileFormat:=xlOpenXMLAddIn, CreateBackup:=False
ActiveWorkbook.Close False
MsgBox "Complemento guardado"
End Sub

Si es lo que necesitas no olvides de calificar la respuesta...saludos.

Disculpa me equivoque en el orden de la instrucción, te dejo la macro corregida:

Sub Guardar_como_Complemento()
'Guardar como Complemento
'Por.Dante Amor
'Actualizado por Juan Fernando
DatoFecha = Format(Date, "dd-mm-yyyy")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
ruta = l1.Path & "J:\MODULOS\"
arch = l1.Name
nomb = Left(arch, InStrRev(arch, ".") - 1)
arch2 = nomb & ".xlam"
l1.SaveCopyAs ruta & "Mio" & DatoFecha & ".xlsm"
Workbooks.Open ruta & "Mio.xlsm"
ActiveWorkbook.SaveAs _
Filename:=ruta & arch2, _
FileFormat:=xlOpenXMLAddIn, CreateBackup:=False
ActiveWorkbook.Close False
MsgBox "Complemento guardado"
End Sub

Si es lo que necesitas no olvides de calificar la respuesta...saludos.

Me da error en :

l1.SaveCopyAs ruta & "Mio" & DatoFecha & ".xlsm"

¿Qué raro a mi me funciona que tipo de error te da?

Ahí se interrumpe la macro

Enviame tu archivo para revisarlo

H o l a 

Te paso la macro actualizada

Sub Guardar_como_Complemento()
'Guardar como Complemento
'Act. Aortiz
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set l1 = ThisWorkbook
    ruta = "D:\MODULOS\"
    arch = l1.Name
    '
    fecha = Format(Date, "dd.mm.yyyy")
    '
    nomb = Left(arch, InStrRev(arch, ".") - 1)
    arch2 = nomb & ".xlam"
    l1.SaveCopyAs ruta & "Mio " & fecha & ".xlsm"
    Workbooks.Open ruta & "Mio " & fecha & ".xlsm"
    ActiveWorkbook.SaveAs _
        Filename:=ruta & arch2, _
        FileFormat:=xlOpenXMLAddIn, CreateBackup:=False
    ActiveWorkbook.Close False
    MsgBox "Complemento guardado"
End Sub

valora para finalizar saludos!

Para hacer la prueba puse la ruta D le cambias por J

ruta = "J:\MODULOS\"

Me da error:

    l1.SaveCopyAs ruta & "Mio " & fecha & ".xlsm"

Hice la prueba y funciona bien, me crea un archivo con la extensión .xlsm y .xla en la carpeta módulos.

Copia toda la macro y remplaza y asegúrate que la ruta sea la correcta.