Run a macro when a cell is clicked

Hi

I wanted a macro that will copy the hyperlink text from a source cell to destination cell.

Now I want to run this macro whenever a cell having hyperlink text is clicked. Please help

The macro is below:

Sub FollowHL()
    If ActiveCell.Hyperlinks.Count = 0 Then
     MsgBox "Please select hyperlink"
    Else
    ActiveCell.Offset().Copy
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Sheets("Sheet2").Range("B2").PasteSpecial Paste:=xlPasteValues
    End If
End Sub