If I follow, something like this -

Private Sub MultiPage1_Change()
Dim sShtName As String
Select Case MultiPage1.Value
Case 0: sShtName = "Sheet1"
Case 1: sShtName = "Sheet2"
Case 2: sShtName = "Sheet3"
Case Else
sShtName = Worksheets(1).Name
End Select
Application.Goto Worksheets(sShtName).Range("A1"), True

End Sub

If you want to return the current tab caption for use in a Select case

sPage = MultiPage1.Pages(MultiPage1.Value).Caption
Select Case sPage ' etc

Regards,
Peter T


"Patrick C. Simonds" wrote in message
...
I want to use a MultiPage control on a UserForm but I seem to be at a loss
to get it to do what I want.

If I click on Tab2 (page 2 of the MultiPage control) I want code that
selects cell A1 of the Engraving worksheet. If I then click on Tab5 (page
5
of the MultiPage control) I want code that selects cell A1 of the Trophy
worksheet. And this would be true of all 8 Tabs. I want each to bring up
it's respective worksheet with cell A1 selected.

Is this possible?