Public Sub SaveSpecificWorkbook1() Application.Workbooks.Add Call Application.ActiveWorkbook.SaveAs("temp1.xls") Application.Workbooks("temp1.xls").SaveAs ("copy of temp1.xls") End Sub