Help so MultiPage in UserForm points to the last number of a named worksheet

[Phixtit]

I'm using MultiPage in a UserForm
I have multiple worksheets that can range from: HOLE 1 and go up to HOLE 30
I have other multiple worksheets that can range from: SAFETY 1 and go up to SAFETY 30
When I use the Code below it always goes to the 1st worksheet named either HOLE 1 or SAFETY 1
How can I have it so that when I click on the MultiPage Tab that it goes to the last sheet on the right for each?
Example: If I'm on SAFETY 5 it would go to that sheet, and not SAFETY 1 like it does now.

Here is my code:

Private Sub MultiPage1_Change()
    Select Case MultiPage1.Value
    Case 0 'page 1
        Workbooks("Workbook.xls").Sheets _
        ("HOLE 1").Activate
    Case 1 'page 2
        Workbooks("Workbook.xls").Sheets _
        ("SAFETY 1").Activate
End Sub

 

[Phixtit]

Solved!

Problem Solved!
I tried out both codes & they worked, But I am using yours as it looks better.

Thanks Again Bill!