How do I convert an entire column of text only email addresses
to hyperlinks pointing to the same email address?
Any help greatly appreciated
How do I convert an entire column of text only email addresses
to hyperlinks pointing to the same email address?
Any help greatly appreciated
Try this one for Column B in the activesheet
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
--
Regards Ron de Bruin
http://www.rondebruin.nl
"TSA" <tsa68@[removethisfirst]verizon.net> wrote in message news:[email protected]...
> How do I convert an entire column of text only email addresses
> to hyperlinks pointing to the same email address?
>
> Any help greatly appreciated
>
>
Works great!........Thanks!
"Ron de Bruin" <[email protected]> wrote in message
news:[email protected]...
> Try this one for Column B in the activesheet
>
> 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
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "TSA" <tsa68@[removethisfirst]verizon.net> wrote in message
news:[email protected]...
> > How do I convert an entire column of text only email addresses
> > to hyperlinks pointing to the same email address?
> >
> > Any help greatly appreciated
> >
> >
>
>
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks