RE: Checking Options in UserForms Collection

probably zero basedinstead of
UserForms(1).
try
me.




"monir" wrote:

> Hi;
>
> The user form, frmOptSelect, has a number of frames, each with a number of
> option controls. The algoritms for all combinations of options are not
> currently available, so I'm disabling certain options for now.
> I'm trying to make sure that an option is selected in each frame on the form
> before I click the btnOpen button. In:
>
> Private Sub btnOpen_Click () event procedure and right at the top, I
> inserted:
> ....... CheckOptions
> which is a regular macro:
>
> Sub CheckOptions()
> Dim myOption As Control
> Dim myFlag As Integer
> .....................................................
> ' check options in frame grpSeries
> For Each myOption In UserForms(1).grpSeries.Controls
> .....If myOption.Value = True Then myFlag = 1
> Next myOption
> If myFlage <> 1 Then MsgBox "Select B- or GEL-Series"
> ......................................................
> ' repeat for all frames
> ......................................................
>
> I got " Run-time error '9': Subscript out of range", and the above For Each
> statement is higlighted!
>
> Any suggestions ? Thank you
.