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