Function myHyperlink(Target As Range) As String Application.Volatile True myHyperlink = Target.Hyperlinks(1).Address End Function