Associate name with email

[jswafa]

I have a column of names and a column of email addresses. Is there any way
to merger them into a single hyperlink that shows the name and sends to the
email address?

 

[Ron de Bruin]

Hi jswafa

Try this : With the names in column A and the E-mail addresses in column B try this

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

 

[jswafa]

Worked great, Ron - thanks for the tip!

Hi jswafa

Try this : With the names in column A and the E-mail addresses in column B try this

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