P
Patrick Simonds
I have a UserForm on which I have placed a MultiPage control. The MultiPage1
control has 4 pages (Data, Income, Outstanding and Instructions). I use a
variant of the code below to bring up the UserForm with the proper page on
the MultiPage control displayed, and it works fine.
Now my problem is that on the Income page I have placed another MultiPage
control (MultiPage2 control) with 6 pages (one for each month January -
June) and I can not figure out how to alter the code below to bring up one
of the monthly pages on the MultiPage2 control. When I run the code I get an
Invalid procedure call or argument error and the line "Data_Input.Show" is
highlighted.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect _
(Target, Me.Range("B3:I3,K3")) Is Nothing Then
myMPPageName = "January"
Data_Input.Show
End If
End Sub
control has 4 pages (Data, Income, Outstanding and Instructions). I use a
variant of the code below to bring up the UserForm with the proper page on
the MultiPage control displayed, and it works fine.
Now my problem is that on the Income page I have placed another MultiPage
control (MultiPage2 control) with 6 pages (one for each month January -
June) and I can not figure out how to alter the code below to bring up one
of the monthly pages on the MultiPage2 control. When I run the code I get an
Invalid procedure call or argument error and the line "Data_Input.Show" is
highlighted.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect _
(Target, Me.Range("B3:I3,K3")) Is Nothing Then
myMPPageName = "January"
Data_Input.Show
End If
End Sub