Найти имя заголовка умной таблицы по порядковому номеру - VB

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

Здравствуйте, уважаемые знатоки VBA!
Требуется Ваша помощь!
Определяю количество столбцов таблицы:

Dim a, b As Integer
dTableName = "dСпособыЗакупок"
a = ActiveSheet.ListObjects(dTableName).HeaderRowRange.count

Тут всё нормально, выдаёт число столбцов.
Далее необходимо определить имя заголовка, к примеру, третьего столбца.
Пытаюсь изобрести что-то вроде:

b = ActiveSheet.ListObjects(dTableName).HeaderRowRange(3).Name

Но где-то я не прав (((
Помогите!

Решение задачи: «Найти имя заголовка умной таблицы по порядковому номеру»

textual
                            Листинг программы 
                        
                            b = ActiveSheet.ListObjects(dTableName).HeaderRowRange(3).Value

Оцени полезность:

9 голосов , оценка 4.111 из 5

Похожие ответы