Combobox на листах

[albih]

Добрый день!
Как исправить код чтоб это все заработало?

Private Sub Combobox1_change()
 Dim i As Integer, ws As Worksheet
 ' Me.Combobox1.Clear:
     For i = 1 To Sheets.Count
       ' Me.Combobox1.AddItem Sheets(i).Name
      Next
         i = Combobox1.ListIndex: If i < 0 Then Exit Sub
          ' ws(i + 1).Visibl = True
           For Each ws In ThisWorkbook.Worksheets
          If ws.Name <> Sheets(i + 1).Name Then ws.Visible = xlSheetHidden
         Next
       Application.Visible = True
End Sub

[RAN.]

Private Sub Combobox1_change()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next
    On Error Resume Next
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ComboBox1.Value Then ws.Visible = xlSheetHidden
    Next
    Application.ScreenUpdating = True
End Sub

[albih]

Что то не работает!?

[doober]

Что то не работает!?

И правильно делает.
Код во все модули листов вставить надо.