e-mail links
 

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
..

e-mail links
 

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

--
Regards,
Tom Ogilvy

"Don Lloyd" wrote in message
...
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
.

e-mail links
 

Hi Tom,

Both the timing and the content are brilliant.

regards,
Don

"Tom Ogilvy" wrote in message
...
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

--
Regards,
Tom Ogilvy

"Don Lloyd" wrote in message
...
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
.