Named range in Worksheet_FollowHyperlink

Stevenn · Mar 23, 2012

I am using following code

Code:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    MsgBox Target.Range.Text
End Sub

It works fine, but I can't use named ranges in this function. How is it possible to get following code to work:

Code:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Range("Name") = Target.Range.Text
End Sub

Stevenn · Mar 23, 2012

I can use

Code:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Sheets(4).Cells(1, 2).Value = Target.Range.Text
End Sub

but it would be so much nicer with a named range. Why isn't it possible?

Mohammad Basem · Mar 23, 2012

Try

Code:

[FONT=Consolas][SIZE=2][COLOR=navy]Range("Name").Formula = Target.Text[/COLOR][/SIZE][/FONT]