ExcelBanter - View Single Post - Initializing UserForm which uses MultiPage controls, part 2

Tom Ogilvy

--
Regards,
Tom Ogivly

"Patrick Simonds" wrote in message
...
I posted the question below earlier, and both Tom Ogilvy and Dave Peterson
were kind enough to reply. Unfortunately their solution did not work. In
the interest of brevity in my prior post I am sure that I could have
provided more useful information. I was going to attch the workbook, but
could not get it down to a small enough size to send to the newsgroup. I
would be more than happy to e-mail this out if someone would be willing to
take a look.

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