Переход по листам книги

[Skyborn]

Добрый день, форумчане!
Нашел в интернете макрос переход по листам из выпадающего списка, подскажите как сделать, что бы в выпадающем списке не было видно скрытые листы. Пример макроса в прикрепленном файле.
С Уважением Skyborn

[Aleksandr H.]

For Each Sht In ActiveWorkbook.Sheets
        If Sht.Name = ActiveSheet.Name Then _
          ListPos = ShtNum - 1
        If Not Sht.Visible = xlSheetHidden Then
            SheetData(ShtNum, 1) = Sht.Name
            Select Case TypeName(Sht)
                Case "Worksheet"
                    SheetData(ShtNum, 2) = "Лист"
                    SheetData(ShtNum, 3) = _
                      Application.CountA(Sht.Cells)
                Case "Chart"
                    SheetData(ShtNum, 2) = "Диаграмма"
                    SheetData(ShtNum, 3) = "N/A"
                Case "DialogSheet"
                    SheetData(ShtNum, 2) = "Диалог"
                    SheetData(ShtNum, 3) = "N/A"
            End Select
            If Sht.Visible Then
                SheetData(ShtNum, 4) = "Видимый"
            Else
                SheetData(ShtNum, 4) = "Скрытый"
            End If
            ShtNum = ShtNum + 1
        End If
    Next Sht

[Hugo121]

Добрый день.
В коде есть как минимум один косяк, а именно - это часть нужно переписать например так:

        Select Case Sht.Visible
        Case -1: SheetData(ShtNum, 4) = "Видимый"
        Case 0: SheetData(ShtNum, 4) = "Скрытый"
        Case 2: SheetData(ShtNum, 4) = "Очень скрытый"
        End Select

Ну а если нужно выводить только видимые - ну значит первым делом нужно проверить значение Sht.Visible, всё остальное в зависимости от результата проверки.

[Hugo121]

Сообщение от Aleksandr H.

        If Not Sht.Visible = xlSheetHidden Then

- упустили veryhidden!

[Aleksandr H.]

Сообщение от Hugo121

- упустили veryhidden!

думаю ТС скрывает лист простым способом : ПКМ-скрыть, иначе знал бы как проверить. Да и его строка

If Sht.Visible Then

его ли раз спрашивает ?

[Hugo121]

Так суперскрытый при его подходе попадает в категорию видимых!
А вообще это дело принципа, мало ли кто как когда лист скроет...

[Skyborn]

Добрый день, форумчане!
Спасибо огромное за помощь с макросом, все получилось, все работает.
С наступающим Вас Новым годом!
С Уважением Skyborn.