Private Sub cmb_Change()
    ActiveWorkbook.Sheets(cmb.List(cmb.ListIndex)).Activate
End Sub
 
Private Sub UserForm_Initialize()
    Dim sc As Worksheet
 
    For Each sc In ActiveWorkbook.Sheets
       cmb.AddItem sc.Name
    Next
End Sub