Excel VisualBasic Script

Sub workbookSelect()
    Workbooks(Workbooks.Count).Activate
End Sub