small suggestion:
Instead of "*@*", the pattern "?*@?*.?*" will be more
discriminating for email addresses.
See
http://mcgimpsey.com/excel/subs/converttomaillink.html
In article ,
"Ron de Bruin" wrote:
Try this one for Column B in the activesheet
Sub test()
For Each myCell In Columns("B").Cells.SpecialCells(xlCellTypeConstant s)
If myCell.Value Like "*@*" Then
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:="mailto:" & myCell.Value, TextToDisplay:=myCell.Value
End If
Next
End Sub