Using VBA to delete a button with a row

[SV_Ryder]

I have a spreadsheet that has multiple buttons in each row. One of these buttons is labled "Delete" and all the macro does is delete the row.

The problem with this is that the buttons do NOT get deleted. The become smaller and kindof squished between two rows.

Is there a code I can use to delete these buttons along with the row?
Since there are so many buttons that do the same thing (based on what row the button is in) naming the button would not work.

Thank you in advance for any help

[Andy Pope]

You would need to loop through all the buttons and check there TopLeftCell property. If it matches the current row the delete the control

[SV_Ryder]

I use the TopLeftCell property to select the cell under the button, but that is as much as I know. Can I get an example of how to use it in the loop as discribed and then delete the control?

Thank you

[Andy Pope]

Assumes the buttons are assigned to PressMe macro

Sub PressMe()

    Dim shpTemp As Shape
    Dim lngRow As Long
    Dim lngIndex As Long
    
    lngRow = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
    For lngIndex = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(lngIndex).TopLeftCell.Row = lngRow Then
            ActiveSheet.Shapes(lngIndex).Delete
        End If
    Next
    ActiveSheet.Rows(lngRow).Delete
    
End Sub