e-mail links

[Don Lloyd]

Hi all,

I have an imported file that contains a list of names which have links to
e-mail addresses.
The names are blue in colour and the address shows when the mouse hovers
over the name.
How can I extract the e-mail address and for example, place it in another
column ?

Thank you and regards,
Don
..

 

[Tom Ogilvy]

Dim cell as Range
for each cell in selection
if cell.Hyperlinks.count > 1 then
cell.offset(0,1).Value = cell.hyperlinks(1).Address
end if
Next

 

[Don Lloyd]

Hi Tom,

Both the timing and the content are brilliant.

regards,
Don