Выполнить по нескрытым листам

[MaxxVer]

Добрый день, уважаемые!

Не смог найти поисковиком ответ.. Подскажите, пожалуйста - макрос выполняет действия для всех листов в определенной книге:
For Each ws In wb.Worksheets
как дописать, чтобы он выполнял только для нескрытых листов?

[EducatedFool]

Sub test()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.Visible = xlSheetVisible Then
           ' ваш код
        End If
    Next sh
End Sub

[MaxxVer]

Благодарю!

[MaxxVer]

Уж простите за, наверное, глупые вопросы, но чтобы не создавать новую тему, подскажите, пожалуйста, код для раскрытия всех столбцов и строк в листе, в логике предыдущего поста.

[MaxxVer]

Ответ нашел, вопрос снимается. Извиняюсь.