Выделение страниц в Excel - VB

Формулировка задачи:

Вопрос в вдогонку на предыдущего вопроса.
Как выделить страницы в Excel, где уже скинули данные ?
Их много и для печати приходится их выделить в ручную (Ctrl+Click)

shit =   cmbGraf.ListCount - 
scet = scet + 
 objExcel.Worksheets(shit + ).Activate
 objExcel.Worksheets(shit + ). ???? здесь
......................

Select не действует ...

Решение задачи: «Выделение страниц в Excel»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> sh(<font color="darkblue"><b>1</b></font> <font color="blue">To</font> ????? ) <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> cmbGraf.ListCount - <font color="darkblue"><b>1</b></font>
  sh(i) = i
<font color="blue">Next</font>
objExcel.Sheets(sh).<font color="blue">Select</font>
                        