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.