How to extract URL from hyperlink on Excel

Add a new module from developer tab then insert below code

Function GetURL(pWorkRng As Range) As String
'Updateby20140520
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

Next you can use =GetURL(A1) for get the URL