Sheets(Target.Value).Activate - wenn ausgeblendet

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
''' Doppelklick in einer Tabelle innerhalb USEDRANGE, Tabelle "Index" wird angesprungen
''' Doppelklick in Tabelle "Index", Eintrag in Spalte A, entsprechende Tabelle wird  _
angesprungen, Zelle K1 wird angesprungen
Dim MyRange As Range, IntersectRange As Range
Set MyRange = Sh.UsedRange
Set IntersectRange = Intersect(Target, MyRange)
On Error GoTo SkipIt
If IntersectRange Is Nothing Then Exit Sub
Select Case Sh.Name    '' ***
Case Is  "Index"
Sheets("Index").Activate
Range("A1").Activate
Application.GoTo ActiveCell, scroll:=True
Case Else
Sheets(Target.Value).Activate
Range("K1").Activate
Application.GoTo ActiveCell, scroll:=True
End Select
SkipIt:
Exit Sub
End Sub