Excel VBA超链接到选项卡

我正在创建一个索引页，因为我有一个包含100多个选项卡的excel文档

在索引页面上，我最初的标签名称与链接到它的文本相匹配。我使用了以下代码：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim ShtName As String
    ShtName = Target.Name
    Sheets(ShtName).Visible = xlSheetVisible
    Sheets(ShtName).Select
End Sub

目标选项卡最初是隐藏的，此代码将取消隐藏它，然后将我带到它，然后我在目标选项卡上有代码，当该选项卡停用时，该代码将再次隐藏它。它工作得很好

现在我每个“标题”有2页，例如我在A1中有标题“Shop”（无超链接），然后我在B1中有“Details”，在C1中有“Transactions”，每个标题都有超链接。“详细信息”单元格中的超链接的选项卡名称为D_Shop，而“交易”单元格中的超链接选项卡名称为T_Shop。同样的过程也适用于许多生产线，例如：

A. B C 商店 细节 交易 电影院 细节 交易

---

如果其他人认为这有帮助，请获取子地址并仅保留链接子地址中感叹号之前的地址：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim ShtName As String
    ShtName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
    Sheets(ShtName).Visible = xlSheetVisible
    Sheets(ShtName).Select
End Sub