Mega Code Archive
Create a new workbook
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