Solved: macro to extract url from hyperlink and populate the url in the cell below?

[gringo287]

hi,

Although this may sound like an unusual request, the title should pretty much say it all. My ultimate end goal is to decontruct a pre populated list of hyperlinks to show the original url underneath the hyperlink.

[gringo287]

ok, ive managed to find what i was looking for, for the fist part of my query. My problem now is that i need to adjust the urls to change them to internet explorer pop out urls. ive i know exactly how to change the url manually to do this:-

http://www.youtube.com/watch?v=bSrCBjLmt4s&feature=g-vrec

http://www.youtube.com/watch_popup?v=bSrCBjLmt4s&vq=medium (http://www.youtube.com/watch_popup?v=bSrCBjLmt4s&vq=medium)

but, annoyingly, find and replace doesnt work and just opens up the window in its normal state.

any ideas:dunno


Sub ExtractHL() Dim HL As Hyperlink For Each HL In ActiveSheet.Hyperlinks HL.Range.Offset(0, 1).Value = HL.Address NextEnd Sub

[gringo287]

never mind...

note to self... stop relying on forums too easilly before double checking i cant sort it myself.

:whistle: :whistle: :whistle: :whistle: :whistle: :whistle: