Private Sub cmb_Change()
 
cmb.Enabled = True
Worksheets(cmb.Text).Activate
 
End Sub
 
 
Private Sub cmb1_Click()
Dim i As Integer
Dim n As Integer
 
cmb.Enabled = False
 
 cmb.Clear
 
 n = Worksheets.Count
For i = 1 To n
 cmb.AddItem Worksheets(i).Name
 Next i
cmb.Enabled = True
End Sub