"yuuji hashimotoさん" <rubi0206@iwk.bbiq.jp> wrote in message 
news:bjn5j6$rm3$1@fnews11.bbiq.jp...
>  石川さんから教えてもらったマクロの
> SendKeys "{F2}"
> と
>  SendKeys "{ENTER}"
> の間に、先頭行の「'」を消す命令が必要になるようです。

セルの値としてはアポストロフィは持っていないので、単純に
セルの値を拾ってあげればいいです。
cells(1,1).value = cells(1,1).value　なんて事で済みます。

これだけでは芸が無いのでシート一括で処理するマクロです。
但しリンクさせたくない所にも@が使われているとアウト。

Sub HL_insert()
    With ActiveSheet.Cells
        Set c = .Find("@", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.Hyperlinks.Add Anchor:=c, Address:="mailto:" & c.Value
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
End Sub