VBA - выделение группы листов

[Bagir]

Хотел бы еще привести пример, зачем нужно выделять листы. При отправке на печать, если это сделать для каждого листа, то они уйдут на принтер разными пакетами. А если выделить группу, то одним. То есть для двухсторонников это как бы весьма нужная фишка.
А теперь вот задачка. По ходу работы макрос смотрит на различные условия и определяет нужно ли взять лист для печати. Предположим в этом макросе периодически придется частенько копаться. А теперь вопрос: Как его красиво написать?

ReDim Preserve конечно вариант для создания списка перед выделением, но выглядит нагружено. Гораздо интересней выглядит добавление элемента в коллекцию. Таким образом можно получить коллекцию индексов или имен нужных нам листов, или даже коллекцию самих листов. Но вот беда, а как выделить все листы из коллекции? Sheets(GroupName).Select работает хорошо, но при условии что GroupName это массив а не коллекция.

Конечно можно перегнать коллекцию в массив, но как то это тоже не интересный способ. Есть идейки?

[ikki_pf]

элементарно кагбэ

Sub tt()
  Dim d As New dictionary
  d.Add Sheets(1).Name, 0
  d.Add Sheets(3).Name, 0
  Sheets(d.Keys).Select
End Sub

[Bagir]

Словарь, хм, вот значит как. Ранее как то не пользовался им. Только массивы и коллекции. Сейчас поищу как подключить.

[ikki_pf]

можно не подключать в референсах, а использовать позднее связывание

dim d as object
set d=createobject("scripting.dictionary")

[Bagir]

ikki_pf
Два огромных человеческих спасибо!!! за оба совета!
Словарь оказался весьма интересным объектом. Стоило подружиться с ним пораньше.