RE: Checking Options in UserForms Collection

Patrick;

Replacing UserForms(1). by Me. produced:
........."Compile error: Invalid use of Me keyword"

Another suggestion? Thank you.



"Patrick Molloy" wrote:

> 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
.