HyperLink Function

  • Thread starter Thread starter Guest
  • Start date Start date
G

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.
 
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
 
Back
Top