Creating buttons using TopLeftCell

Originally Posted by Ben F.

I have about 50 buttons to make, and I'd like to use the TopLeftCell property to determine the row I want to update so I don't have to make every button uniquely. I need to update columns B-E on each row after pressing a button asking for input.

ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row (How do I use this properly?)

Range("B2").Select
ActiveCell.Value = ActiveCell.Value + _
Val(InputBox("Add value1", Default:=0))
Range("C2").Select
ActiveCell.Value = ActiveCell.Value + _
Val(InputBox("Add value2", Default:=0))
Range("D2").Select
ActiveCell.Value = ActiveCell.Value + _
Val(InputBox("Add value3", Default:=0))
Range("E2").Select
ActiveCell.Value = ActiveCell.Value + _
Val(InputBox("Add value4", Default:=0))

Please help!

Figured it out for those looking for this is the future:

ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Cells(1,
2).Value = ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Cells(1,
2).Value + _
Val(InputBox("Add value1", Default:=0))

ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Cells(1,
3).Value = ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Cells(1,
3).Value + _
Val(InputBox("Add value2", Default:=0))

ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Cells(1,
4).Value = ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Cells(1,
4).Value + _
Val(InputBox("Add value3", Default:=0))

ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Cells(1,
5).Value = ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Cells(1,
5).Value + _
Val(InputBox("Add value4", Default:=0))