Sub ボタンの置かれているセルの場所を取得する() ボタン場所セル = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address MsgBox ボタン場所セル End Sub