Hi Patrick

The code below would be one way of doing it

Option Explicit
Dim MyStr As String

Private Sub MultiPage1_Change()

With MultiPage1
MyStr = .Pages(.Value).Caption
End With

With ActiveWorkbook
.Sheets(MyStr).Select
End With

End Sub

Hope this helps

Steve