Sub Макрос1()

      ActiveWorkbook.SaveAs Filename:="C:\Temp\Книга11.xls", FileFormat:=xlExcel8 _
          , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
          CreateBackup:=False
End Sub

Sub procSave()
       Const path2003 As String = "C:\Temp\"

       Application.ScreenUpdating = False
       Application.EnableEvents = False
       With ThisWorkbook
           .Save
           Dim name2007 As String: name2007 = .Name
           Dim temp_name As String: temp_name = path2003 & "#" & name2007
           .SaveCopyAs temp_name
       End With

       Dim name2003 As String
       name2003 = Replace(name2007, ".xlsm", ".xls")
       'или так
       'name2003 = Mid(name2007, 1, Len(name2007) - 4) & "xls"

       Dim wb2003 As Workbook
       Set wb2003 = Workbooks.Open(temp_name)

       With Application
           .DisplayAlerts = False
           wb2003.SaveAs path2003 & name2003, xlExcel8
           .DisplayAlerts = True
           wb2003.Close
           Kill temp_name
              
           .EnableEvents = True
           .ScreenUpdating = True
       End With
End Sub