Setting the page index in a mulipage user form

I got some help ealry on when I first started using userforms and I wanted
the page to also be the default page so I added MultiPage1.Value = 0 to the
UserForm_Initialize() sub. Now I want to be able to preselt which page is the
"active" page, how can I do this?

Sub UserForm_Initialize()
Me.Height = Application.Height
Me.Width = Application.Width
MultiPage1.Value = 0
End Sub

--
Trefor

zero is the first page. If you wanted the third page to be the topmost page
you would do

Sub UserForm_Initialize()
Me.Height = Application.Height
Me.Width = Application.Width
MultiPage1.Value = 2
End Sub

--
Regards,
Tom Ogilvy


"Trefor" wrote:

> I got some help ealry on when I first started using userforms and I wanted
> the page to also be the default page so I added MultiPage1.Value = 0 to the
> UserForm_Initialize() sub. Now I want to be able to preselt which page is the
> "active" page, how can I do this?
>
> Sub UserForm_Initialize()
> Me.Height = Application.Height
> Me.Width = Application.Width
> MultiPage1.Value = 0
> End Sub
>
> --
> Trefor

Tom,

Thanks, but what I needed to do was be able to pick and change which is the
default page and I was not sure how. I simply replaced the 2 in your example
with a variable before the userform.show and this seems to have done the
trick. Many thanks.

--
Trefor


"Tom Ogilvy" wrote:

> zero is the first page. If you wanted the third page to be the topmost page
> you would do
>
> Sub UserForm_Initialize()
> Me.Height = Application.Height
> Me.Width = Application.Width
> MultiPage1.Value = 2
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Trefor" wrote:
>
> > I got some help ealry on when I first started using userforms and I wanted
> > the page to also be the default page so I added MultiPage1.Value = 0 to the
> > UserForm_Initialize() sub. Now I want to be able to preselt which page is the
> > "active" page, how can I do this?
> >
> > Sub UserForm_Initialize()
> > Me.Height = Application.Height
> > Me.Width = Application.Width
> > MultiPage1.Value = 0
> > End Sub
> >
> > --
> > Trefor