Extract Hyperlink

[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

 

[David McRitchie]

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