Associate name with email

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?

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


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



"jswafa" <jswafa@discussions.microsoft.com> wrote in message news:A69C7453-8B12-4444-AF64-3CB7742D91BE@microsoft.com...
>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?

Worked great, Ron - thanks for the tip!

"Ron de Bruin" wrote:

> 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
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "jswafa" <jswafa@discussions.microsoft.com> wrote in message news:A69C7453-8B12-4444-AF64-3CB7742D91BE@microsoft.com...
> >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?
>
>
>