How to extract Hyperlinks in EXCEL. Create a module (User-Defined function) as described below. Save and use it as you would like a formula.
Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function