セルにハイパーリンクつきのURLを投入したい。

こんばんは。
Sub Macro7()
URL = "http://www.yahoo.co.jp/"
Range("a1").Value = "#" & URL & "#"
End Sub

を実行してもA1には「#http://www.yahoo.co.jp/#」と入力されるだけなのですが
図のようにURLを文字列で入力、なおかつリンクをつけて、クリックすればURL先に飛べるようにしたいです。
どうすればいいのでしょうか？
よろしくお願いします。

No.2 ベストアンサー 回答者： xls88 回答日時： 2009/03/28 01:16

With Activesheet

　　.Hyperlinks.Add Anchor:=.Range("a1"), Address:=URL
End With

この回答へのお礼

できました！ありがとうございます！！！！

お礼日時：2009/03/28 11:23

No.3 回答者： web2525 回答日時： 2009/03/28 01:21

Sub Macro7()

URL = "http://www.yahoo.co.jp/"
ActiveSheet.Hyperlinks.Add Range("a1"), Address:=URL, TextToDisplay:=URL
End Sub

こんな感じかな？

この回答へのお礼

こちらでもできました！！ありがとうございます！！！

お礼日時：2009/03/28 11:24

No.1 回答者： tom04 回答日時： 2009/03/28 01:11

こんばんは！

VBAでないとダメですか？
当方使用のExcel2003の回答になりますが、
表示したいセルをアクティブにして
メニューバーの「ハイパーリンクの挿入」ではどうでしょう？
尚、的外れの回答ならごめんなさい。m(__)m

この回答へのお礼

すいません。ルーチン化したいのでVBAで行ないたいです。
でもそういう方法もあるのですね！
わざわざ画像を添付してくださってありがとうございます。
大変参考になりました。

お礼日時：2009/03/28 11:23