Command Button on Userform that checks Checkboxes are Ticked

[slimimi]

Hi there - i am using excel 2003.
I have created a userform with Checkboxes and command buttons.

Is it possible to do the following:

On command button "OK" Click - check to see that all checkboxes have been ticked before proceeding.

If all checkboxes have not been ticked - display message "Please tick your Checkboxes before proceeding".

There are 3 checkboxes in question.

Look forward to anyones response on this.
THank you.

 

[Case_Germany]

Hi,

try...

Private Sub CommandButton1_Click()
    Dim frmControl As MSForms.Control
    Dim intNumber As Integer
    For Each frmControl In UserForm1.Controls
        If TypeOf frmControl Is MSForms.CheckBox Then
            If frmControl = False Then
                intNumber = intNumber + 1
            End If
        End If
    Next
    If intNumber > 0 Then MsgBox "Please tick your Checkboxes before proceeding"
End Sub

Case_Germany