Mega Code Archive
Use the return value of the Add method to create an object variable that refers to the new workbook
Sub NewWorkbooks()
Dim myWorkbook1 As Workbook
Dim myWorkbook2 As Workbook
Set myWorkbook1 = Workbooks.Add
Set myWorkbook2 = Workbooks.Add
myWorkbook1.Activate
End Sub