i = 1
for each hlnk in ActiveSheet.Hyperlinks
Cells(i,1).Value = hlnk.Address
Cells(i,2).Value = hlnk.SubAddress
i = i + 1
Next

--
Regards,
Tom Ogilvy


"Carlton Noles" wrote in message
...
I have a large list of hyperlinks I have imported to
Excel. I need to get the urls these links point to. Is
there a way to do this through code or an Excel function?