Create a workbook and save it as a new file
Public Sub SaveSpecificWorkbook2() Dim W As Workbook Set W = Application.Workbooks.Add Call W.SaveAs("temp2.xls") End Sub