Get button position

[tyhonex]

Hello I just need to do a basic thing. When I press button I want to get the location of button for example to mgsbox.
My code is here:

Sub GetLocation()
Dim Row As Long
Dim Column As Long


Row = Application.Caller.Row
Column = Application.Caller.Column

MsgBox "Row:" & Row&

End Sub

Error: Object requied


Thank you for you help

 

[Snakehips]

@tyhonex Welcome.
Does the below help?

Sub GetLocation()
Dim Shp As Shape
Dim Row As Long
Dim Column As Long
Set Shp = ActiveSheet.Shapes(Application.Caller)

MsgBox "Address " & Shp.TopLeftCell.Address

MsgBox "Row " & Shp.TopLeftCell.Row

MsgBox "Column " & Shp.TopLeftCell.Column

End Sub

 

[tyhonex]

Yea, its working. Thank you. Just one more question how to save number of row to Row and number of column to Column, because
Row = Shp.TopLeftCell.Row is now working

Thank you Sir

 

[bebo021999]

Avoid using VBA code keywords like: Row,Column
With R is row and C is column, try:

Sub GetLocation()
Dim R As Long
Dim C As Long
With ActiveSheet.Shapes(Application.Caller).TopLeftCell
    R= .Row
    C= .Column
End With
End Sub