Excel VisualBasic Script

Sub NewWorkbooks()
           Dim myWorkbook1 As Workbook
           Dim myWorkbook2 As Workbook
           Set myWorkbook1 = Workbooks.Add
           Set myWorkbook2 = Workbooks.Add
           myWorkbook1.Activate
     End Sub