Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E6")) Is Nothing Then
  If SheetExists(Target.Text) Then
    Worksheets(Target.Text).Activate
    ActiveSheet.Range("A1").Select
  End If
End If
End Sub

Private Function SheetExists(ShName$) As Boolean
Dim iSh As Worksheet
For Each iSh In ThisWorkbook.Worksheets
  If iSh.Name = ShName Then
    SheetExists = True
    Exit For
  End If
Next
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''Записать в - ЭтаКнига 
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^{TAB}"
End Sub
Private Sub Workbook_Open()
    Application.OnKey "^{TAB}", "Openlink"
End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''' Записать в модуль 
Sub Openlink()
'В переменной NameSheet - указать имя листа и ячейку с выпадающим списком. 
NameSheet = Worksheets("Columbus").Range("E6").Value
Worksheets(NameSheet).Activate
End Sub