Excel雙擊“單元格”後，自動跳轉到相關“工作表

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
    For Each sht In Sheets
        If sht.Name <> Target.Value Then n = n + 1
    Next sht
    If n = Sheets.Count Then MsgBox "您選擇的工作表不存在": Exit Sub
    Sheets(Target.Value).Select
End If
End Sub