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.