HyperLink Function

[Guest]

I have a large list of text entries, the text in each Cell having a
Hyperlink, mainly to a www address but a few to other cells.

Obviously the hyperlink address is not visible in the Cell but I would like
to know if there is a function (or any other way) of listing the hyperlink,
say, in the adjoining column.

 

[PC]

Dave McRitchie has posted this user defined function.

Copy & paste it into a new Module in your workbook. To use type the
function

=HYPERLINKADDRESS(A1)

Change cell reference as needed.



Function HyperlinkAddress(cell)
On Error Resume Next
HyperlinkAddress = cell.Hyperlinks(1).Address
if hyperlinkaddress = 0 then hyperlinkaddress = ""
End Function