Как отловить имена таблиц?

[mik]

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

Задача: В оформлении страницы (Page Setup) на каждом листе печатать "Страница Х из Y". То есть отловить количество листов, название которых является числом, подсчитать количество таких страниц, и вставить в оформление каждой страницы общее количество листов.

Дополнительные пожелания: 1. Помимо страниц названия которых - число, есть страницы у которых название - текст. Часть из страниц название которых текст, хотелось бы включить в подсчёт общего количества страниц (можно внести в название не подсчитываемых страниц какой-нибудь признак, по которому их можно будет исключить из подсчёта).
2. Неплохо было бы обнаружить пропуск в номерах страниц и переименовать листы для исправления этой ошибки.
3. Количество листов не постоянно (они добавляются по мере необходимости с присвоением следующего номера имени листа).

Вопрос: Какими средствами и как можно решить эту задачу не вручную?

[pashulka]

Если дело обстоит именно так, как Вы описали, то если на печать/просмотр выводится рабочий лист и его имя это "число", то X - это имя активного рабочего листа, а Y - количество печатных страниц исходной таблицы (* ибо общее количество необходимых листов должно быть равно количеству печатных страниц в таблице)

Впрочем, если это количество* может и не совпадать, то если номера страниц(имена листов) расположены в порядке возрастания, то для создания нужного колонтитула можно воспользоваться следующим событием, которое необходимо скопировать только в модуль ThisWorkbook(ЭтаКнига)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If TypeOf Me.ActiveSheet Is Worksheet Then
       Dim iList As Worksheet
       For Each iList In Me.Worksheets
           If IsNumeric(iList.Name) = True Then _
              iPages& = iPages& + 1
       Next
       With Me.ActiveSheet
            .PageSetup.CenterFooter = _
            "Страница " & .Name & " из " & iPages&
       End With
    End If
End Sub

Что касается дополнительных пожеланий, то:
1. Добавить ещё одну проверку Вы можете и самостоятельно.
2. Такие действия проводятся, как правило, после открытия рабочей книги (хотя их можно и избежать, т.к. правильно пронумеровать листы, не составляет большого труда)
3. В моём примере это учитывается.