Dim Ctrl As Control
For Each Ctrl In Me.MultiPage1(0).Controls("Frame1").Controls
If TypeName(Ctrl) = "CheckBox" Then
X = Ctrl.Name
End If
Next Ctrl
Dim knownBox as msForms.CheckBox
Dim Container as Object
Dim oneControl as Object
Set knownBox = Userform1.CheckBox23
For Each oneControl in KnownBox.Parent.Controls
If TypeName(oneControl) = "CheckBox" Then
MsgBox oneControl.Name & IIf(oneControl.Value, " is ", " is not ") & " checked."
End If
Next