E-mail from Excel 2002

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a column of 350 e-mail addresses. I need to convert them all to
e-mail hyperlinks so that when I click on one of the addresses, an e-mail
item is generated.

I have selected them all and played around with the hyperlink button, but
cannot get it to work properly. An e-mail is created when an entry is
clicked, but it is always addressed to first individual on the list. What is
the correct procedure to convert these entries to working e-mail address
short of converting them one at a time.

Please help
Thanks
Paul
 
Use this Paul

You can run this macro for column A

Sub test()
For Each myCell In Columns("A").Cells.SpecialCells(xlCellTypeConstants)
If myCell.Value Like "?*@?*.?*" Then
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:="mailto:" & myCell.Value, TextToDisplay:=myCell.Value
End If
Next
End Sub

Or insert a column with formulas

=HYPERLINK("mailto:" & A1,A1)
 
Thanks again Ron
Since I am not a VB user, I utilized the hyperlink fuction so I could
explain it if someone asked.
 
Back
Top