Retrieve E-mail addresses from mailto objects

N

natboyd6

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

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
 
Top