Dim hlnk as Hyperlink
for each cell in Range("C1:C50")
for each hlnk in cell.hyperlinks
cell.offset(0,1).Value = hlnk.Address
Next
Next

--
Regards,
Tom Ogilvy


"JP" wrote in message
...
I have an Excel sheet that contains a column of cells that are hyperlinks.
Is there a way to extract the text of the hyperlink? For example, the
cell
contains a company, (Microsoft) that is hyperlinked to
http://www.microsoft.com. I would like to extract the
http://www.microsoft.com and put in a cell.

Thanks.