Get row and col of a button when clicked

getRowAndCol.vb

Public Function ButtonRow()
    Dim b As Object, RowNumber As Integer
    Set b = ActiveSheet.Buttons(Application.Caller)
    With b.TopLeftCell
        RowNumber = .Row
    End With
    ButtonRow = RowNumber
End Function

Public Function ButtonCol()
    Dim b As Object, cs As Integer
    Set b = ActiveSheet.Buttons(Application.Caller)
    With b.TopLeftCell
        cs = .Column
    End With
    ButtonCol = RowNumber
End Function