How to Navigate to particular Sheet using Combo-Box???

[Anmol N]

Hello People,
Need Some Help ! Suppose I have 20 Worksheet....I want to Navigate & display only 15 Sheets with using Combo Box , I have tried the below Code Given by a user in other thread....But it displays all Sheets ....A neewbie here ... Since I require only particular Sheet to Navigate...Thank You .....

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
For Each xSheet In ThisWorkbook.Sheets
If xSheet.Visible = xlSheetVisible Then ComboBox1.AddItem xSheet.Name
Next xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

 

[mumps]

Are the 15 sheets you want to use consecutive? In other words, are they beside each other? If so, in which position is the first of the 15 sheets? If not, we would need to know the names of the sheets.