Finding a command button in a row and deleting it.

Hi there!
I am trying to find a way to select a command button in a row and delete it. There will always be a command button in the row. All of the command buttons have the same text.

Sub BeginRemoval(RemItem() As String)
Sheets("A-M").Activate
Dim Rng As Range, Cel As Range
Dim LastRow As Integer, x As Integer, i As Integer
Dim RemObj As Object 'Not sure if this is correct or if it should be shape?

With Sheets("A-M")
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Range("A2:A" & LastRow)

For i = LBound(RemItem) To UBound(RemItem)
    x = 2
    For Each Cel In Rng
        If Cel.Value = RemItem(i) Then
            RemObj.Delete 'This is where I am stuck, I just put this here as a place holder.
            Rows(x).EntireRow.Delete
        End If
    x = x + 1
    Next Cel
Next i
End With

End Sub

RemItem is an array that was loaded in a previous sub. I do not have problems with that sub. The data in the array is string data (names), but if you think it is relevant, then I can put that here... Really just wondering if there is a way to select a command button in a specific row.

Ok, so I found a way to do it! I wouldn't have been able to if you had not helped me out. Thanks a million berlan!

Sub BeginRemoval(RemItem() As String)
Sheets("A-M").Activate
Dim Rng As Range, Cel As Range
Dim LastRow As Integer, x As Integer, i As Integer
Dim RemObj As Shape

With Sheets("A-M")
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Range("A2:A" & LastRow)

For i = LBound(RemItem) To UBound(RemItem)
    For Each Cel In Rng
        If Cel.Value = RemItem(i) Then
            For Each RemObj In ActiveSheet.Shapes
                If RemObj.TopLeftCell.Row = Cel.Row Then
                    RemObj.Delete
                End If
            Next RemObj
            Cel.EntireRow.Delete
        End If
    Next Cel
Next i
End With

End Sub

Just in case anyone else needs it in the future. :D

Glad it worked out, thanks for the kind feedback and positive rep added.

Best,
berlan

Perhaps something like this as well?

Option Explicit

Sub DelShap()
Dim i As Integer
    For i = ActiveSheet.Shapes.Count To 1 Step -1
    ActiveSheet.Shapes(i).Delete
    Next
End Sub

Alf