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





"JayW" wrote in message
...
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.
--
JayW, New Milton, Hants, UK