VBA script for extracting URLs from cells in Excel

gistfile1.txt

Public Function GetURL(c As Range) As String
    On Error Resume Next
    If Len(c.Hyperlinks(1).SubAddress) = 0 Then
        GetURL = c.Hyperlinks(1).Address
    Else
        GetURL = c.Hyperlinks(1).Address & "#" & c.Hyperlinks(1).SubAddress
    End If
End Function