Your code is not valid:

MultiPage1.Page(1).Visible = True

you select the pages by value:

UserForm1.MultiPage1.Value = 0

0 is the first sheet in the index
--
-John Northwest11
Please rate when your question is answered to help us and others know what
is helpful.


"Richard" wrote:

Hello,

Is there anyone can help with the Mutipage control?

I want to change the page based on user input by using VBA coding in the
UserForm_Initializing.

Example
Dim strImput as String

Private Sub UserForm_Initialize()

strImput = Worksheets(strActiveSheet).Cells(3, 2).Value

If strImput = "page2" Then

MultiPage1.Page(1).Visible = True

Else

MultiPage1.Page(2).Visible = True

End If

End Sub

I'm having is problem with "MultiPage1.Page(2).Visible = True".

This code is not working.

Please Help.....................