Sub NewWorkbooks() Dim myWorkbook1 As Workbook Dim myWorkbook2 As Workbook Set myWorkbook1 = Workbooks.Add Set myWorkbook2 = Workbooks.Add Application.DisplayAlerts = False myWorkbook1.SaveAs FileName:="E:\SalesData1.xls" End Sub