Welcome. I have a workbook consisting of several sheets. I want to copy all sheets to a new workbook ignoring only one sheet Sheet1, and save the new workbook in the same default path in xlsx format.
Sub Another_Way()
Application.ScreenUpdating = False
ThisWorkbook.Save
Application.DisplayAlerts = False
With ThisWorkbook
Sheets("Sheet1").Delete
.SaveAs ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & ".xlsx", FileFormat:=51
.Close
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub