Имя (заголовок) столбца активной ячейки в ListObject - VBA

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

В экселе делаю свою формулу через VBA. вставлять буду в ячейку умной таблицы. Как узнать в каком столбце вставляется формула? В какой таблице находится активная ячейка - понятно как. А вот в каком столбце, причем именно имя (то что в шапке) а не адрес/номер? В зависимости от столбца формула будет по разному обрабатывать данные. В одном листе может быть несколько таблиц, одна под другой.

Решение задачи: «Имя (заголовок) столбца активной ячейки в ListObject»

textual
                            Листинг программы 
                        

                                With ActiveCell.ListObject
        MsgBox .ListColumns(ActiveCell.Column - .Range.Column + 1).Name
    End With
                        