Extract text from hyperlink

[Guest]

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.

 

[Tom Ogilvy]

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

 

[Guest]

thanks!

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