i want to build a sheet navigator with a combobox.
I have the next code that this but not the way i want
I Don't want all the sheets to be in the combobox and except that
i don't want to appear in the combobox with their sheetnames
so i thought to built an array with tree options
1.sheename
2.Name appear in the combobox
3. Index sheet number for the (combobox change)

Can anyone help?



Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Text).Select
End Sub

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
Dim i As Long
ComboBox1.Clear
With ActiveWorkbook
For i = 1 To .Worksheets.Count
If .Worksheets(i).Visible = True Then
ComboBox1.AddItem .Worksheets(i).Name
End If
Next i
End With

End Sub