Solved: Msgbox if value not found

[Viko]

Can anybody please help me with a code that will search true CheckBoxes
from 1 true 10 in a userform and if it finds that they are all empty to return msgbox warning?

[Bob Phillips]

fClear = True
For i = 1 To 10

If Me.Controls("CheckBox" & i").Value Then

fClear = False
Exit For
End If
Next i

If fClear Then MsgBox "All Checkboxes unchecked"

[mikerickson]

This is one of the legitimate uses of GoTo

For i = 1 To 10
If Me.Controls("CheckBox" & i).Value Then GoTo Skip
Next i

MsgBox "all false"

Skip:
Rem rest of routine

[Viko]

Thanks guys!

I used the code that xld provided as It does exactly what I needed!

Thank you very much!

[Viko]

Dim ChkBox As MSForms.CheckBox
Dim I As Integer
fClear = True
For I = 1 To 10
Set ChkBox = Me.Controls("CheckBox" & I)
If ChkBox.Enabled = True And ChkBox.Value = True Then
fClear = False
Exit For
End If
Next I

f fClear Then MsgBox"Test"


I change it to this and I think the added lines are important in order the code to run smoothly


Cheers!

[Bob Phillips]

You can do it without the Set



fClear = True
For i = 1 To 10

With Me.Controls("CheckBox" & i")

IF .Enabled And .Value Then

fClear = False
Exit For
End If
End With
Next i

If fClear Then MsgBox "All Checkboxes unchecked"