Sub ShowLinks()
For Each hlink In ActiveSheet.Hyperlinks
hlink.Parent.Offset(0, 1).Value = hlink.Address & " " & hlink.SubAddress
Next
End Sub

--
Regards,
Tom Ogilvy



wrote in message
ups.com...
I have a column containing 2500 items that have hyperlinks. I would
like to set up another column that will show the hyperlink values. I
know this should be easy but I can't figure it out. Any suggestions?