サンプルマクロは、セルＡ１にモーグと表示して、モーグの
サイトにリンクを設定します。

Sub Sample()

    ActiveSheet.Hyperlinks.Add Range("A1") _
        , "http://www.moug.net/", , , "モーグ"

End Sub