Public Sub SaveSpecificWorkbook2() Dim W As Workbook Set W = Application.Workbooks.Add Call W.SaveAs("temp2.xls") End Sub