E-mail addresses in Excel 2000

[Guest]

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?

 

[Ron de Bruin]

Hi David

With the addresses in column B use this

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