E-mail addresses in Excel 2000

I have an HR director who is copying and pasting e-mail addresses into a
spreadsheet (Excel 2000). He wants to make these addresses links. I know
how to do it one at a time, but can you select 50-100 cells and have Excel
make them links to the individual e-mail accounts?

Hi David

With the addresses in column B use this

Sub test()
For Each myCell In Columns("B").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



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


"David Williamson" wrote in message
...
I have an HR director who is copying and pasting e-mail addresses into a
spreadsheet (Excel 2000). He wants to make these addresses links. I know
how to do it one at a time, but can you select 50-100 cells and have Excel
make them links to the individual e-mail accounts?