Use a String rather than an index value to reference a workbook
Sub workbookSelectName() Workbooks("MyWorkbook.xls").Activate End Sub