Loop with a changing name based on the loop

[brucemc777]

Oh I wish I could have provided more clear title...

In a For-Next loop I want to place the name of a control, a checkbox, and change it with the number of loop I am on, such as if on the first loop I would have cbx01, on the second loop it would become cbx02, as in

For intCtr = 1 to 10
     If ActiveSheet.ckb & Cstr(intCtr) & .Value = True Then
          <Do something>
     End If
Next

in order to loop through ckb1 through ckb10.

Thoughts?

Thank-you!

[MickG]

Try :-

Sub MG26May33
Dim n As Integer
For n = 1 To 5
    If ActiveSheet.OLEObjects("CheckBox" & n).Object.Value = True Then
        '"Do Something"
    End If
Next n
End Sub

Regards Mick

[brucemc777]

Interesting. I will have to experiment to see how this might apply to other uses. Thank-you!

[MickG]

You're welcome