Extract Hyperlink

  • Thread starter Thread starter Brian
  • Start date Start date
B

Brian

Hello All,
I have a cell with text in it. The text also has a
hyperlink. I need to extract the hyperlink and put it
into the next column.
I have tried recording a macro but it will not work
within standard dialogue boxes.
Any help would be appreciated.
Brian
 
This works nicely also from pasting exported Favorites file
from the HTML to Excel, in fact that is what I wrote it for..

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

to use after installing:
=HyperlinkAddress(A2)
=personal.xls!hyperlinkaddress(a2)

Additional hyperlink material in
http:://www.mvps.org/dmcritchie/excel/buildtoc.htm#url
 
Back
Top