ハイパーリンクとして張り付け

Sub edit_hyperlink()
	Worksheets(1).Hyperlinks.Add Anchor:=Range("A1"), _
        Address:="http://www2.lunartecs.ne.jp/~office/", _
	'A1にOFFICE質問箱MLへのリンクをはります
        ScreenTip:="OFFICE質問箱ML Web Site", _
	'ポイントしたときに表示されるコメント
        TextToDisplay:="OFFICE質問箱ML"
	'セルに表示されるテキスト
End Sub

Cyber Click!