Public Sub SaveActiveWorkbook() Application.Workbooks.Add Call Application.ActiveWorkbook.SaveAs("temp.xls") End Sub