Retrieve E-mail addresses from mailto objects

[Guest]

How can I retrieve e-mail addresses from multiple mailto objects within a
single worksheet in Excel 2003

 

[Ron de Bruin]

Hi natboyd6

With the mail links in column A you can run this macro to display the mail address in column B

Sub Test()
Dim hlnk As Hyperlink
For Each hlnk In Columns("A").Hyperlinks
hlnk.Parent.Offset(0, 1).Value = Right(hlnk.Address, Len(hlnk.Address) - 7)
Next
End Sub