Hello hartjezt,

Here is macro to do just that. Add a VBA module to project and copy
this code into it.

Sub ShowAddresses()

Dim HyperLnk

For Each HyperLnk In ActiveSheet.Hyperlinks
HyperLnk.Range.Offset(0, 1).Value = HyperLnk.Address
Next HyperLnk

End Sub

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=504593