excel - Extract an URL from hyperlink issue

Solution 1:

You need to add the subaddress:

Function GetURL(rng As Range) As String
     On Error Resume Next
     GetURL = rng.Hyperlinks(1).Address & rng.Hyperlinks(1).SubAddress 
End Function