Excel VisualBasic Script

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