Excel VisualBasic Script

Sub add()
     Set myWorkbook1 = Workbooks.Add
     Application.DisplayAlerts = False
     myWorkbook1.SaveAs Filename:="C:\Data\SalesData1.xlsx"
     Application.DisplayAlerts = True
End Sub