strImput = ActiveSheet.Cells(3, 2).Value

If LCase(strImput) = "page2" Then

MultiPage1.Value = 1

Else

MultiPage1.Value = 0

End If

The index of the first page is 0

or maybe something like -
MultiPage1.Value = MultiPage1("Page2").Index

Regards,
Peter T


"Richard" wrote in message
...
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.....................