Have read the other Q&A's on default multipage and still cant get it to work
Want to open on page 0, on open, here is code

Workbook opens and immediatly displays user form

Private Sub workbook_open()

MsgBox "Agree to confidentiality message"
Mymain.Show
'need to default to page 0 the first page
'mymain is name of user form
Mymain.MultiPage1.Value = 0
Mymain.MultiPage1.Pages(1).Visible = True

End Sub

Thanks in advance from australia

Perfect, when in doubt step through your code, Thanks, Bill

"OssieMac" wrote:


Set the Multipage value first before opening form

Mymain.MultiPage1.Value = 0 'Where zero is page1, 1 is Page 2 etc
Mymain.Show

--
Regards,

OssieMac


"Bill" wrote:

Have read the other Q&A's on default multipage and still cant get it to work
Want to open on page 0, on open, here is code

Workbook opens and immediatly displays user form

Private Sub workbook_open()

MsgBox "Agree to confidentiality message"
Mymain.Show
'need to default to page 0 the first page
'mymain is name of user form
Mymain.MultiPage1.Value = 0
Mymain.MultiPage1.Pages(1).Visible = True

End Sub

Thanks in advance from australia

Hi again Bill,

Just a little extra info on the ShowModal property of a form. When set to
True, no code runs after the Show command until the form is closed. Also you
cannot access worksheets while the form is open.

If ShowModal is set to False then all the code runs and you can also access
cells on worksheets etc while the form is open.

ShowModal cannot be set with VBA code; only in the Properties dialog box.

--
Regards,

OssieMac


"Bill" wrote:

Perfect, when in doubt step through your code, Thanks, Bill

"OssieMac" wrote:


Set the Multipage value first before opening form

Mymain.MultiPage1.Value = 0 'Where zero is page1, 1 is Page 2 etc
Mymain.Show

--
Regards,

OssieMac


"Bill" wrote:

Have read the other Q&A's on default multipage and still cant get it to work
Want to open on page 0, on open, here is code

Workbook opens and immediatly displays user form

Private Sub workbook_open()

MsgBox "Agree to confidentiality message"
Mymain.Show
'need to default to page 0 the first page
'mymain is name of user form
Mymain.MultiPage1.Value = 0
Mymain.MultiPage1.Pages(1).Visible = True

End Sub

Thanks in advance from australia