Подсчет именованных объектов

С помощью небольшого макроса можно быстро подсчитать количество именованных ячеек, диапазонов и формул в текущей рабочей книге. Код данного макроса выглядит следующим образом (листинг 3.29).

Листинг 3.29. Количество именованных объектов

Sub CountNames()

Dim intNamesCount As Integer

' Получаем и отображаем количество имен в активной _

рабочей книге

intNamesCount = ActiveWorkbook.Names.Count

If intNamesCount = 0 Then

MsgBox «Имен нет»

Else

MsgBox "Имен: " & intNamesCount & « шт.»

End If

End Sub

Результат выполнения этого макроса выводится в информационном окне, которое показано на рис. 3.8.

Рис. 3.8. Подсчет количества имен

При необходимости можно подсчитать количество имен рабочей книги. Соответствующий макрос выглядит так (листинг 3.30).

Листинг 3.30. Количество имен рабочей книги