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