Instead of $D$8, I want to make it Activecell

[Legacy 185509]

This is this code below
I want to make it like if userclick Cell / which has hyperlink
i

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    If Target.Range.Address = "$D$8" Then 
         'MsgBox "You can run some code if this hyperlink in " & Target.Address & " is clicked"
        Call Menuitem1 
        Exit Sub 
    End If

Thank you for help

 

[Scott Huish]

Can't you just remove the check for the range?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Call MenuItem1
End Sub