Excel マクロでボタンを押してリンク先に行く

質問

前回はお世話になりました。

ボタンを押した時にボタンの裏のセルに隠れているURL先に行くマクロを作っています。

具体的には

D列から最大F列までの13行から下（変動します）にボタンがあり、
それぞれ行きたいURLがボタンの裏に書かれています。

D13にあるボタンをクリックすると、その裏にあるURLに行くイメージです。

http://okwave.jp/qa/q210243.html
を参考に、セルの位置を取得するまでは出来ました。

次に
objIE.Navigate Range("○●")の要領で
Sell Range("○●")を作りたいのですが、
○●の表し方が間違っているためかURL先に行けません。

Dim tmp As Variant
tmp = Split(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address, "$")
Shell Range(tmp(1) & tmp(2))

としてみたり、色々試してみましたがダメでした。

他の方法でも構いませんのでご教授願います。

回答No.1

keithin · ベストアンサー

sub macro1()
activeworkbook.followhyperlink address:=activesheet.shapes(application.caller).topleftcell
end sub
をボタンに登録しておくなどで。

お礼

早速の回答ありがとうございました！

望み通りの動きをしてくれました。
大変助かりました！