выделение нескрытых листов книги

[Jaroslav]

Всем привет. У меня такой вопрос: как выделить листы, которые идут перед листом с именем Лист3. Проблема заключается в том, что в книге есть скрытые и очень скрытые листы.
Вот мой код:

k = Sheets("Лист3").Index
        ReDim arr2(1 To k - 1)
        For m = 1 To k - 1
            arr2(m) = m
        Next
        Sheets(arr2).Select

[EducatedFool]

Sub test()
    k& = Sheets("Лист3").Index

    Dim sh As Worksheet, n&
    For Each sh In ThisWorkbook.Worksheets
        If sh.Visible = xlSheetVisible And sh.Index < k& Then
            sh.Select n = 0
            n = n + 1
        End If
    Next sh
End Sub

[Jaroslav]

Спасибо, EducatedFool. Все работает
А что значит код:

sh.Select n = 0

[EducatedFool]

если n=0 (ещё листы не выделялись) - вызывается метод SELECT с параметром TRUE
это обычное выделение листа (предыдущее выделение сбрасывается)

если n>0 (нужные листы уже выделялись) - вызывается метод SELECT с параметром FALSE
это выделение листа без сброса предыдущего выделения (листы добавляются к ранее выделенным)

[Jaroslav]

Спасибо за разъяснение