Combo Box Macro?

Hello. I need a macro to accomplish 2 things with a combo box on a user form.

Populate the items of the combo box with the sheet titles of an excel file (for the purpose, I have a file with 53 sheets).

Then, once a selection is made in the combo box, open the selected sheet as the active sheet.

How do I code this? If someone would be kind to a new user and give me an example code, I would be very thankful.

in a normal code module

Sub fillComboBox()
    Dim xsheet As Worksheet
    With UserForm1.ComboBox1
        For Each xsheet In ThisWorkbook.Sheets
            .AddItem xsheet.Name
        Next xsheet
    End With
    UserForm1.Show
    End Sub

Sub reactToComboBox()
    ThisWorkbook.Sheets(UserForm1.ComboBox1.Value).Activate
    End Sub

In the Userform code module

Private Sub ComboBox1_Change()
    Call reactToComboBox
    End Sub

Thank you very much!