选择/取消选择GroupBox中的所有复选框

Question

我正在尝试构建一个Excel，用户在开始时（在组框中）从一系列复选框中进行选择，每个复选框都会显示一个新的可选复选框（列表框或组框，无论您认为哪个）更合适）然后根据他们的最终选择，生成/显示相关标签供他们阅读。

我很难在其中选择/取消选择所有按钮。这是我到目前为止所尝试的，没有太多运气。如果有人可以提供帮助，我将非常感激。

Sub Tickall()

Dim CB As CheckBox
Dim OB As OptionButton
If ActiveSheet.OB.GroupBox.GroupBox1.CheckBoxes("Check Box 21").Value Then
    For Each CB In ActiveSheet.OB.GroupBox1.GroupBox1.CheckBoxes
        If CB.name <> ActiveSheet.OB.GroupBox1.CheckBoxes("Check Box 21").name Then
            CB.Value = True
        End If
    Next CB
End If
End Sub