I have a user form with three list boxes. Is there a "For" statement
(similar to below) that will loop through each of the three list boxes
and execute a "with" command?

For x = 1 to 3
With UserForm1.ListBox(x)
.additem = A
.additem = B
End With
next x

Any help is greatly appreciated, thank you!

For x = 1 to 3
With UserForm1.Controls("ListBox" & i)
.additem = A
.additem = B
End With
next x

--
Regards,
Tom Ogilvy



"chris" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I have a user form with three list boxes. Is there a "For" statement
> (similar to below) that will loop through each of the three list boxes
> and execute a "with" command?
>
> For x = 1 to 3
> With UserForm1.ListBox(x)
> .additem = A
> .additem = B
> End With
> next x
>
> Any help is greatly appreciated, thank you!
>

Is it safe to assume that the "i" should be an "x"? I am also
receiving a Run-time error '438'. Any ideas for a solution?

Thanks!

Tom Ogilvy wrote:
> For x = 1 to 3
> With UserForm1.Controls("ListBox" & i)
> .additem = A
> .additem = B
> End With
> next x
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "chris" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> >I have a user form with three list boxes. Is there a "For" statement
> > (similar to below) that will loop through each of the three list boxes
> > and execute a "with" command?
> >
> > For x = 1 to 3
> > With UserForm1.ListBox(x)
> > .additem = A
> > .additem = B
> > End With
> > next x
> >
> > Any help is greatly appreciated, thank you!
> >