シート上のオプションボタンを削除するVBAコード

Sub フォームCNTLオプションボタン16()
    Dim s, t, n As Long
    Dim ws As Worksheet
        Set ws = ActiveSheet
        For t = 2 To 6 Step 2
'グループボックスを設置
            ws.Range("B1,D1,F1").ColumnWidth = 10.5
            With Range(Cells(1, t), Cells(31, t))
                 ws.GroupBoxes.Add(.Left, .Top, _
                            .Width, .Height).Select
                 With Selection
                     .Characters.Text = "グループ" & t & "列"
                     .Name = "ボタンGrp" & t & "列"
                 End With
            End With
'セルにオプションボタンを設置
            n = 1
            For s = 2 To 31
                With Cells(s, t)
                    ws.OptionButtons.Add(.Left, .Top, _
                                .Width, .Height).Select
                    With Selection
                        .Characters.Text = "ボタン" & t & "列" & n
                        .Name = "botan" & t & "_" & n
                        .LinkedCell = Cells(1, t).Address
                    End With
                End With
                n = n + 1
            Next s
'ボタンをグループにします
            For Each ob In ws.OptionButtons
                If ob.Name Like "botan" & t & "*" Then
                    ob.Select Replace:=False
                End If
            Next ob
            Selection.ShapeRange.Group.Name = "グループ" & t
            Range("A1").Select
'リンクセルの表示設定
            With ws.Cells(1, t)
                .Select
                With .Font
                    .Size = 6
                    .Color = RGB(255, 255, 255)
                End With
            End With
        Next t
End Sub

Sub フォームCNTLオプションボタン17()
    Dim m As Long
    Dim ws As Worksheet
        Set ws = ActiveSheet
        m = 4
        On Error Resume Next
        With Range(Cells(1, 2), Cells(31, 2))
            ws.Shapes("グループ" & m).Select
            Selection.Delete
            ws.GroupBoxes("ボタンGrp" & m & "列").Select
            Selection.Delete
        End With
        On Error GoTo 0
        Cells(1, m).Clear
End Sub

Sub フォームCNTLオプションボタン18()
    Dim r As Long
    Dim ws As Worksheet
    Dim ob As OptionButton
        Set ws = ActiveSheet
        r = 13
        For Each ob In ws.OptionButtons
            If ob.Name Like "botan" & "*" & r Then
                ob.Delete
            End If
        Next ob
End Sub

Sub フォームCNTLオプションボタン48()
'シェイプオブジェクト名を全羅列する
    Dim r As Long
    Dim ws As Worksheet
    Dim obj As Shape
        Set ws = ActiveSheet
        For Each obj In ws.Shapes
            Debug.Print obj.Name
        Next obj
End Sub

Sub フォームCNTLオプションボタン18改()
    Dim r, s, t As Long
    Dim ws As Worksheet
    Dim ob As OptionButton
    Dim Grp As Shape
        Set ws = ActiveSheet
'オプションボタングループを解除する
        For Each Grp In ws.Shapes
            If Grp.Name Like "グループ*" Then
                Grp.Select
                Selection.ShapeRange.Ungroup
            End If
        Next
        Range("A1").Select
'指定のオプションボタンを削除する
        r = 13
        For t = 2 To 6 Step 2
            For Each ob In ws.OptionButtons
                If ob.Name = "botan" & t & "_" & r Then
                    ob.Delete
                End If
            Next ob
        Next t
End Sub

Sub フォームCNTLオプションボタン22()
        With ActiveSheet
            .Cells.Clear
            .DrawingObjects.Delete
            .Cells.UseStandardHeight = True
            .Cells.UseStandardWidth = True
        End With
End Sub