Sub ボタンを削除する()
    
    Worksheets("Sheet1").Shapes.Range("ボタンの名前").Delete

End Sub