Hyperlinks are truncated
 

I am importing data from a webpage and it contains hyperlinks. I am
attempting to extract the hyperlink, but not all of it is being
extracted. It stops at a single quote (').

I am pulling the address with the following function:

Public Function ShowAddress(rng As Range) As String

If rng.Cells.count 1 Then

ShowAddress = CVErr(xlErrValue)

Else

ShowAddress = rng.Hyperlinks(1).Address

End If

End Function

The embedded link is this:
javascript:openWindow2('#ccffcc:console:10-May-06:07.07:20.02:2006_TL021:130:ACP:vecld=sevenof9:p atcad:os')

But the function, and other similar functions return this:
javascript:openWindow2('

Any ideas as to how I can extract the complete link?

Thanks,
Mike