Сделать проверку на существование рабочего листа

[izrukvruki]

Спрошу здесь чтоб тему не создавать...

С помощью макроса хочу создать фигуру, на панельку выношу кнопку. Выдает ошибку, если никакого документа не открыто.
Как сделать проверку: если рабочего листа нету, то создать документ?

 

[_MBK_]

Не рановато ли вам инсталляторы писать?

If Documents.Count = 0 Then       ' Количество открытых документов
    Dim doc1 As Document
    Set doc1 = CreateDocument()   ' Создаем новый
else
                                                            ' Как минимум один документ открыт      
endif

 

[izrukvruki]

огромное спасибо