ハイパーリンクにサブルーチンを追加しても機能しない

Question

サブルーチンにリンクされる名前にハイパーリンクを追加しようとしています。ユーザーがハイパーリンクされた名前をクリックすると、サブルーチンが呼び出されます。

今、私はハイパーリンクすることができ、メッセージボックスを表示するいくつかのコードがありますが、ハイパーリンクされたセルをクリックすると何も表示されません。

"Assign macro to hyperlink" tutorial I'm using

簡体コード：

Sub Main() 
    Call SetHyperlink 
End Sub 

Sub SetHyperlink() 
    Range("A6").Select 
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="$A$6", TextToDisplay:="TEST" 
End Sub 

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    'Check if the Target Address is same as you have given 
    'In the above example i have taken A4 Cell, so I am 
    'Comparing this with $A$4 

    If Target.Range.Address = "$A$6" Then 
     'Write your all VBA Code, which you want to execute 
     'Or Call the function or Macro which you have 
     'written or recorded. 
     MsgBox "Write your Code here to be executed" 
     Exit Sub 
    End If 
End Sub 

それは明らかに何かあれば、私は同様に推論を教えてくださいので、私はまだVBAに非常に新しいです。前もって感謝します！

Answer 1

このコードを使用して、ハイパーリンクのテキストを確認し、ハイパーリンクの選択に従ってマクロを呼び出します。

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) 
    Select Case Target.TextToDisplay 
    Case "hi" 
     MsgBox "Hi" 
    Case "Oranges" 
     MsgBox "You selected oranges" 
    Case "Banana" 
     MsgBox "Banana" 
    Case "Trees" 
     MsgBox "Tree" 
    End Select 

End Sub