It will copy the email address in column B
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Ron de Bruin" wrote in message ...
Hi
Try this with the hyperlinks in column A
Sub test3()
Dim hlnk As Hyperlink
For Each hlnk In Columns("A").Hyperlinks
hlnk.Parent.Offset(0, 1).Value = Mid(hlnk.Address, 8, 255)
Next
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl
"littleellisdude" wrote in message
...
How can I separate (extract) ALL of the email addresses from a column of
MULTIPLE "email data hyperlinks" when they are all embedded in a "mail to:"
hyperlink? There is only one per row, but about 2000 in the total column.
Doing them one at a time will take a year to extract :o(
Thank you!!!
Example:
clicking on John Doe in a column opens Outlook "mail to:" to the persons
real email address.