Looping through checkboxes on userform

[JimM]

I've hit another problem on my userform (I'm learning quickly though !)

I want to loop through certain checkboxes on a particular page of a multipage form. I've found out how to loop through controls and identify if it's a checkbox eg

Dim Cntr As Control
For Each Cntr In Me.Controls
If TypeOf Cntr Is MSForms.CheckBox Then

If Cntr.Value = True Then
coname = Cntr.Name

End If
End If

This works fine if I want to go through all the checkboxes but how do I loop through specific checkboxes only ie chkbx1 to chkbx5 only out a total of 8


Thanks

Jim

 

[RoryA]

If they are all on the same page (say page 2):

    Dim ctl As MSForms.Control
    For Each ctl In Me.MultiPage1.Pages(1).Controls
        If TypeName(ctl) = "CheckBox" Then
            MsgBox ctl.Caption
        End If
    Next ctl

Note: it is better to use TypeName here since TypeOf will also accept togglebuttons and optionbuttons as checkboxes.

 

[pbornemeier]

use a select case statement

Select Case Right(Cntr.Name,1)
Case 1 to 5
     'do something
Case Else
     'do nothing
End Select