To select the last Workbook object in the collection
Sub workbookSelect() Workbooks(Workbooks.Count).Activate End Sub