Большое спасибо за ссылку!!!  
Разобрался. Кому интересно - см. файл (автор Климов П.Ю.).

{quote}{login=EducatedFool}{date=29.03.2012 09:06}{thema=}{post}Да, возможно.  
(если в настройках Excel стоит галочка «доверять доступ к объектной модели», и проект VBA не защищён паролем){/post}{/quote}  
 
Буду благодарен за пример (доступ к объектной модели включен).

Спасибо, Юрий М. Просто запарился.

Прошу помочь с проблемой:  
формирую двумерный массив с именами листов и их свойствами для дальнейшего отображения в ListBoxe; при этом 3 группы значений попадают в ListBox, а четвертая - нет. Не могу понять в чем ошибка.

Спасибо!    
Ошибку нашел. В моем коде было:  
 
Dim Имена_листов(1 To 5) As String  
ReDim Имена_листов(1 To Sheets.Count)

При изменении размерности массива - та же ошибка.

Как задать верхнюю границу массива, равную количеству листов в книге?  
Строка:    
Dim Массив (1 to Sheets.Count) - дает ошибку.