Leith,
Thanks thats just brilliant :)
Cheers
Darren
Leith Ross wrote:
Hello Darren,
Here is a macro that will that will list the link address of all
hyperlinks on the active worksheet. The hyperlink address is placed in
the cell immediately to the right of the hyperlink.
Code:
--------------------
Sub ListLinkAddresses()
Dim Addx, HypLnk
With ActiveSheet
For Each HypLnk In .Hyperlinks
Addx = .Range(HypLnk.Range.Address).Offset(0, 1).Address
.Range(Addx).Value = HypLnk.Address
Next HypLnk
End With
End Sub
--------------------
Sincerely,
Leith Ross
--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200512/1