点击与VBA动态超链接跳转到一个新的位置的相同片材内

Question

我有一个大块的，其产生的结果片VBA代码。这是相当大的，并且为了更好的，通过它更快地挖，我已经在纸张的顶部增加了一个动态的超链接，与旁边有一个下拉菜单。下拉项，单击超链接，你会得到whooshed到你想要去的电子表格的一部分。

我一直在问，使其更容易，当你选择从下拉菜单中的项目，以自动嗖您到正确的位置。因此，一个在触发宏单击超链接的动态。

好了，到目前为止，一切都很好。做一些google搜索，我结束了以下内容：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("HyperlinkType")) Is Nothing Then ClickHyperlink
End Sub

Private Sub ClickHyperlink()

ThisWorkbook.Names("HyperLinkTotal").RefersToRange.Hyperlinks(1).Follow

End Sub

不幸的是，这会导致一个下标超出范围，这显然可以用动态超链接发生。

供参考的超级链接式：

=IFERROR(HYPERLINK("#Totals!B"&MATCH(HyperlinkType,B:B,0),"Jump to "&HyperlinkType),"Please enter a valid type")

1）如何解决下标越界问题的？ 2）是否有比超级链接（1）更好的办法？它几乎在我看来就像它的索引超链接，我不知道这正是我要找的 - 我正在寻找在细胞，而不是首先在工作簿中的超链接。我可能是误解。

这个以前的实例，并在堆栈溢出类似的问题：Excel Macro executing Hyperlink shows 'Subscript out of range error' - 无人接听 Hyperlinks.Follow error: Run-time error '9': Subscript out of range - 用以解决特定的问题（XY问题）完全不同的方法 Hyperlink code shows Subscript out of range error vba excel - 用于保留字作为一个变量

VBA to open Excel hyperlink does not work when hyperlink generated with a formula - 似乎是有前途的，我觉得这可能会解决这个问题。