Как выделить несколько листов сразу?

[frantic150]

Проблема:
Как програмно выделить листы (не по-почереди, а как бы ctrl'ом).
В листе Date есть диапозон значений (формул) D20:Q20
Макрос должен выбрать одновременно листы, основываясь на значениях ПУСТО или НЕПУСТО в диапозоне D20:Q20

Вот, что у меня получилось. Здесь проблема в том, что макрос по-очереди выбирает лист и по-очереди печатает, а это ну оочень долго.

Private Sub CommandButton5_Click()
 For i = 4 To 17
 If Not Sheets("Date").Cells(20, i).Value = "" Then
     Sheets(i).PrintOut
 End If
Next
End Sub

Знаю, что есть оператор Array(), но до конца в него не врубился.
Расчитываю на вашу помощь.

З.Ы. Нашел подобную тему, но там немного другое.

[EducatedFool]

Попробуйте так:

Private Sub CommandButton5_Click()
    Dim coll As New Collection
    For i = 4 To 17
        If Not Sheets("Date").Cells(20, i).Value = "" Then coll.Add Sheets(i).Name
    Next
    ReDim arr(1 To coll.Count): For i = 1 To coll.Count: arr(i) = coll(i): Next
    Sheets(arr).Select    ' Sheets(arr).PrintOut
End Sub

[frantic150]

То что надо! Спасибо!

[frantic150]

Почему то всегда активирует 8-ой лист, даже если все ячейки в диапозоне пусты
Ошибка в вашем коде?