Add a new workbook and save it
Public Sub SaveActiveWorkbook() Application.Workbooks.Add Call Application.ActiveWorkbook.SaveAs("temp.xls") End Sub