ExcelVBAでフォーム(ボタン)のあるセルの位置を取得

MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address

MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column