Save as Xla

Sub SaveAsAddin()
    Application.DisplayAlerts = False
    Windows("xla_test.xls").Activate
    With ActiveWorkbook
        .IsAddin = True
        .SaveAs "c:\byg\xla_test.xla", FileFormat:=xlAddIn
    End With
    Application.DisplayAlerts = True
End Sub