Guardar como,(.xlam), con macro

Te anexo la macro para guardar el mismo archivo que contiene la macro como complemento

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

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Disculpa había probado con otra extensión saludos!