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