オプションボタン ２つのグループ化の使い分け

Sub フォームCNTLオプションボタン5()
'グループボックスを設置
        With Range(Cells(1, 2), Cells(10, 2))
             Worksheets("Sheet2").GroupBoxes.Add(.Left, .Top, _
                        .Width, .Height).Select
             With Selection
                 .Characters.Text = "グループ名1"
                 .Name = "選択グループ名1"
             End With
        End With
End Sub

Sub フォームCNTLオプションボタン6()
'グループボックスを設置
        With Range(Cells(1, 4), Cells(10, 4))
             Worksheets("Sheet2").GroupBoxes.Add(.Left, .Top, _
                        .Width, .Height).Select
             With Selection
                 .Characters.Text = "グループ名2"
                 .Name = "選択グループ名2"
             End With
        End With
End Sub

Sub フォームCNTLオプションボタン7()
'グループボックスを設置
        With Range(Cells(1, 6), Cells(10, 6))
             Worksheets("Sheet2").GroupBoxes.Add(.Left, .Top, _
                        .Width, .Height).Select
             With Selection
                 .Characters.Text = "グループ名3"
                 .Name = "選択グループ名3"
             End With
        End With
End Sub

Sub フォームCNTLオプションボタン8()
    Dim n, s, t As Long
'Sheet3のセルにオプションボタンを設置
        n = 1
        For s = 2 To 6 Step 2
            For t = 2 To 10 Step 2
                With Cells(t, s)
                    Worksheets("Sheet3").OptionButtons.Add(.Left, .Top, _
                                .Width, .Height).Select
                    With Selection
                        .Characters.Text = "ボタン" & n
                        .Name = "botan" & n
                    End With
                End With
                n = n + 1
            Next t
        Next s
End Sub

Sub フォームCNTLオプションボタン9()
    Dim n As Long
'グループにするボタンを選択します
    n = 1
        For Each ob In Worksheets("Sheet3").OptionButtons
            If ob.Characters.Text = "ボタン" & n Then
                ob.Select Replace:=False
            End If
            n = n + 1
            If n >= 6 Then Exit For
        Next ob
'        Selection.ShapeRange.Group.Name = "グループ名1"
        Selection.Group.Name = "グループ名1"
        Range("A1").Select
End Sub