I didn't need to in my little test.

Are you sure your myMPPageName is holding the correct value?

And if you're trying to get to the second page within that "sub-page", this
worked ok for me:

In a general module:

Option Explicit
Public myMPPage1Name As String
Public myMPPage2Name As String
Sub testme()
myMPPage1Name = "Page2"
myMPPage2Name = "Page4"
UserForm1.Show
End Sub

Behind the userform:

Option Explicit
Private Sub UserForm_Initialize()
With Me.MultiPage1
.Value = .Pages(myMPPage1Name).Index
End With
With Me.MultiPage2
.Value = .Pages(myMPPage2Name).Index
End With
End Sub

In my testing, I added a multipage control with page1 and page2. Then I added
another multipage control to page2 with page3 and page4.

The initialization code showed page2, and page4 on that page.



Patrick Simonds wrote:

I am having a problem Initializing my UserForm which has on it 2 MultiPage
controls. Before I added the second MultiPage control (which is located on
Page2 of MultiPage1) everything worked fine. Now when I try to open the
UserForm I get Object not found errors. I assume I must some how account for
the second MultiPage control in the "With" statement, but nothing I have
tried works.

With Me.MultiPage1
.Value = .Pages(myMPPageName).Index
End With

Private Sub UserForm_Initialize()

'This macro intializes the Data Input UserForm

With Me.MultiPage1
.Value = .Pages(myMPPageName).Index
End With

'Populates the End of Period Data on MultiPage1

TextBox1.Text = Worksheets("Audit Report Page 1").Range("E4").Text
TextBox2.Text = Worksheets("Audit Report Page 1").Range("E7").Text
TextBox3.Text = Worksheets("Audit Report Page 1").Range("E8").Text

'Populates Outstanding Checks on MultiPage1

TextBox8.Text = Worksheets("Outstanding Checks").Range("A5").Text
TextBox9.Text = Worksheets("Outstanding Checks").Range("B5").Text
TextBox10.Text = Worksheets("Outstanding Checks").Range("C5").Text

'Populates January Income on MultiPage2

TextBox80.Text = Worksheets("Income").Range("B3").Text
TextBox81.Text = Worksheets("Income").Range("C3").Text
TextBox82.Text = Worksheets("Income").Range("D3").Text

--

Dave Peterson