押したボタンの位置取得(共通のマクロ)

質問

押したボタンの位置を取得したいのですが、
多数あるボタンのマクロを同じマクロにしたいのです。

自分で検索したところ、下記のところまではわかったのですが
ボタン名をひとつひとつ指定しなくてはなりません。
MsgBox ActiveSheet.OLEObjects("CommandButton1").TopLeftCell.Address

"CommandButton1"の所を、「いま押したボタン名」と指定できれば
できるのではないかと考えていまが、そもそもコマンドボタンの場合
ボタン数の分マクロを入力しなくてはならないので、
オートシェイプのボタンに統一の同じマクロを登録できれば、
そちらのほうがいいです。
どうかよろしくお願いします。

回答No.1

mitarashi

表示／ツールバー／コントロールツールボックスのボタンでなく、表示／ツールバー／フォームのボタンなら、下記の様に、置かれているアドレスが取得できます。（マクロは全てのボタンに共通でＯＫです）なお、当方XL2000です。
Sub ボタン_Click()
MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
End Sub

お礼

できました！
ボタンもコピーすればマクロが登録されているし、
簡単に同じボタンを、たくさん作る事ができます。
ありがとうございます！