I have imported a column of valid email address. How can I make them
clickable links to email. No problem if I type them but there are far to
many.
Help apprecited. Thanks.
Rick Wetzel
I have imported a column of valid email address. How can I make them
clickable links to email. No problem if I type them but there are far to
many.
Help apprecited. Thanks.
Rick Wetzel
Hi Rick
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
"Rick Wetzel" <Rick@fayesinc(DontInclude).com> wrote in message news:[email protected]...
>I have imported a column of valid email address. How can I make them
> clickable links to email. No problem if I type them but there are far to
> many.
>
> Help apprecited. Thanks.
>
> Rick Wetzel
small suggestion:
Instead of "*@*", the pattern "?*@?*.?*" will be more
discriminating for email addresses.
See http://mcgimpsey.com/excel/subs/converttomaillink.html
In article <#[email protected]>,
"Ron de Bruin" <[email protected]> wrote:
> 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
Thanks J.E for this suggestion
--
Regards Ron de Bruin
http://www.rondebruin.nl
"JE McGimpsey" <[email protected]> wrote in message news:[email protected]...
> small suggestion:
>
> Instead of "*@*", the pattern "?*@?*.?*" will be more
> discriminating for email addresses.
>
> See http://mcgimpsey.com/excel/subs/converttomaillink.html
>
>
>
> In article <#[email protected]>,
> "Ron de Bruin" <[email protected]> wrote:
>
>> 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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks