Deleting CommandButton after running macro

I'm trying to delete the CommandButton that runs my macro. The rest of the code simply locks every sheet after the first sheet. Here's my code:

Private Sub CommandButton1_Click()

For i = 2 To Sheets.Count

    Sheets(i).Activate                                   'Locks every other sheet

    ActiveSheet.Protect Password:="Microsoft"

Next i

Sheets(1).Shapes("CommandButton1").Delete                'Deletes button

Sheets(1).Protect Password:="Microsoft"                  'Locks first sheet

End Sub

Everything runs fine with no error, but the CommandButton is still there after the macro has ran.