用于运行宏/ show userform的VBA超链接

Question

我很难理解如何使用超链接来运行宏/显示用户表单。运行HyperlinkTest后，当我单击单元格A1中的测试超链接时，msgbox不会出现。如何从超链接运行代码？

以下是我使用的代码：

Public Sub HyperlinkTest()

With Worksheets("Sheet1")
    .Hyperlinks.Add Anchor:=.Range("Sheet1!A1"), _
    Address:=.Range("Sheet1!A1"), _
    ScreenTip:="Click to Test", _
    TextToDisplay:="Test"
End With

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

If Target.Range.Address = "Sheet1!A1" Then
    MsgBox "Test"
    Application.Run "PERSONAL.XLSB!Test"
    Application.Run "PERSONAL.XLSB!TestUserForm"
    Exit Sub
End If

End Sub