Try something like the following:

Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
Debug.Print HL.TextToDisplay
Debug.Print HL.Address
Next HL


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"RS&J" wrote in message
...
I need to get the tex and the link from a list of Hyperlinks in
a spreedsheet.