Option Explicit
Sub testme()

Dim myCell As Range
Dim wks As Worksheet

Set wks = ActiveSheet

With wks
For Each myCell In .Range("a1:g10").Cells
If myCell.Value = "" Then
'do nothing
Else
.Hyperlinks.Add Anchor:=myCell, _
Address:="mailto:" & myCell.Value
End If
Next myCell
End With

End Sub

Satish wrote:

Hi Dave,
Thanks for the reply ...the solution which you mentioned
worked for me successfully.But the problem is , every time i has to
type this formula on the adjacent cell and do it.

But i need a solution for the emails to be hyperlinked in the range
(A1: G10) using macro?

Regards
Satish

--

Dave Peterson