Is there any reason you can't simply use two loops?


Dim ctl As Control
For Each ctl In Me.StartDataRam1.Controls
' do something
Next ctl
For Each ctl In Me.StartDataRam2.Control
' do something
Next ctl


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com





"Viktor Ygdorff" wrote
in message
...
I have a loop that worked just fine unitl I changed my userform
and therefore
had to change the code. The problem with the loop is that I
want it to go
through every control in two different frames. I do not know
how to write
this. Thus the erronous line is:

For Each ctl In Me.StartDatumRam1.Controls & in
Me.StartDatumRam2.Controls

The first part until the "&" is correct I just dont know how to
write it for
two frames. please help me out! Thanks very much!

The complete loop
Private Sub startDatumTextBoxSub()
Dim i As Long
Dim ctl As Control
ReDim strStartDatumArray(0 To lngNumberOfCheckBoxes)
For Each ctl In Me.StartDatumRam1.Controls & in
Me.StartDatumRam2.Controls
If TypeName(ctl) = "TextBox" Then
strStartDatumArray(i) = ctl.Value
i = i + 1
End If
Next ctl
End Sub