VBA超链接到模块在单击时不执行任何操作

Question

我目前正在尝试在一个总体标签中添加一个超链接，该标签会在点击后触发另一个标签中的自动过滤器。我已经放入了我认为是超链接的正确宏，但点击时没有任何反应。我甚至尝试了一个新的Excel文档，代码工作正常。是否有我可以在我的文档中更新以允许超链接或我的代码不正确。

谢谢！

表内代码：

Private Sub Worksheet_Hyperlink(ByVal Target As hyperlink)
If Target.Range.Address = "$F$5" Then
Call hyperlink2
End If
End Sub

参考代码：

Sub hyperlink2()
Application.ScreenUpdating = False
Worksheets("NJ Reporting Template").Activate
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Range("Z6").Select
ActiveSheet.Range("$N$6:$Z$150").AutoFilter Field:=26, Criteria1:="Yes"
Application.ScreenUpdating = True
End Sub