Hi forum,
i have stolen this code from extendoffice.com/
It create a list of all my sheets, and let my jump to the sheet i press. My problem is, that it also shows all my hidden sheets.Private Sub ComboBox1_Change() 'Updateby Extendoffice 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 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
Can anyone modify the code, so it only shows the visible sheets in my workbook?
Bookmarks