Thread: Excel Contains E-mail Addresses
View Single Post
  #5  
Old March 7th, 2009, 05:41 PM posted to microsoft.public.excel.newusers
Carl
external usenet poster
  
Posts: 473
Default Excel Contains E-mail Addresses
Thanks Ron, works perfectly. And is easy to implement for a VB neophyte.


"Ron de Bruin" wrote:

This will add the addess in the column next to it
Be sure that there is a empty column next to the hyperlimks column

Sub ShowLinks()
Dim hlnk As Hyperlink
For Each hlnk In ActiveSheet.Hyperlinks
hlnk.Parent.Offset(0, 1).Value = Mid(hlnk.Address, 8, 100)
Next
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Carl" wrote in message ...
I inherited an Excel 2003 file with 985 email address in them. The problem is
that they exist in Excel as hyperlinks, which when clicked on launch a new
Outlook email.
I need to send all these email address to an outside vendor. How can I
convert all these hyperlinks, displayed as John Doe in Excle, to a column of
email address (such as ).
I posted in an Outlook group and an Outlook MVP thought I might be better
posting this question here.
Thank you
Carl