Using VBA to delete a button with a row

**Andy Pope** · 08-29-2009, 10:13 AM

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** · 08-31-2009, 10:58 AM

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** · 08-31-2009, 11:12 AM

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