Commandbutton Question.

I've got a couple of Commandbuttons, that I would like when clicked to determine the row it is located in.

I have similar code for regular buttons, but can't seem to find a way to convert this to work with command buttons.

Any help?

Here is the code I have for the regular buttons.

    Dim b As Object, cs As Integer
    Set b = ActiveSheet.Buttons(Application.Caller)
    With b.TopLeftCell
        row = .row
    End With

Appreciate any help

Hello Steach91,

Part of your problem is you are using the wrong object class. The Buttons class is not the right one to use. There are 2 types of controls that can be placed on a worksheet: Forms Controls, and Control Toolbox Controls, also known as ActiveX. Here is the code for both.

Public Sub ButtonRow()
  
    'Forms Controls Macro
     Btn = Application.Caller
     Row = ActiveSheet.Shapes(Btn).TopLeftCell.Row
  
End Sub

Private Sub CommandButton1_Click()

    'Control Toolbox Macro Code
     Set CmdBtn = ActiveSheet.OLEObjects("CommandButton1")
     Row = CmdBtn.TopLeftCell.Row
  
End Sub

Sincerely,
Leith Ross

Fantastic!

Sorry it took me so long to reply, I haven't checked in lately. I had almost given up on it.... thankfully i hadn't coded a work around.

Thanks a ton!

works perfectly