E-mail addresses in Excel 2000

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

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?
 
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
 
Back
Top