Hyperlink path into a adjacent cell

[DARREN FONG via OfficeKB.com]

Hi,

I have a list of cells with hyperlinks displaying amounts i.e. $100, $200 etc,
what I want to do is display the path of the hyperlink next to the amounts.
as I need to use part the path to do other work.

Thanks a lot,
Darren Fong

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200512/1

[Leith Ross]

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.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

[DARREN FONG via OfficeKB.com]

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