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