Thnaks Ron, it works fine. Thank you for all of your help.
--
Sheikh Saadi


"Ron de Bruin" wrote:

Hi Sheikh

You can run this macro for column B

Sub test()
Dim mycell As Range
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



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


"Sheikh Saadi" wrote in message ...
Hi All,

I am facing a problem. I have a list of around 700 email addresses, in which
some are hyperlinked (mailto) and some are not. Now I wanted to know that is
there any function or any way to convert all of them into Mailto Hyperlinks
that when someone clicks on them links are opened into Outlook or any email
application.
--
Sheikh Saadi