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
.