Mutipage
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.....................
|