E-mail from Excel 2002
 

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

E-mail from Excel 2002
 

Use this Paul

You can run this macro for column A

Sub test()
For Each myCell In Columns("A").Cells.SpecialCells(xlCellTypeConstant s)
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)




--
Regards Ron de Bruin
http://www.rondebruin.nl



"PA" wrote in message ...
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

E-mail from Excel 2002
 

Thanks again Ron
Since I am not a VB user, I utilized the hyperlink fuction so I could
explain it if someone asked.

"Ron de Bruin" wrote:

Use this Paul

You can run this macro for column A

Sub test()
For Each myCell In Columns("A").Cells.SpecialCells(xlCellTypeConstant s)
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)




--
Regards Ron de Bruin
http://www.rondebruin.nl



"PA" wrote in message ...
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