Extract Address from an Excel Hyperlink

Function HLink(rng As Range) As String
'extract URL from hyperlink
'posted by Rick Rothstein
  If rng(1).Hyperlinks.Count Then HLink = rng.Hyperlinks(1).Address
End Function


Reference:
http://blog.contextures.com/archives/2010/12/13/get-the-url-from-an-excel-hyperlink/