Нахождение имени заголовка столбца активной ячейки с помощью VBA в excel

У меня есть таблица, созданная из списка данных. Как найти текст заголовка каждого столбца

Когда я выбираю заголовок активной ячейки, он подсвечивается оранжевым, но я хочу получить это значение с помощью визуального ... Я могу найти адрес листа excel, но мне нужен заголовок столбца таблицы

   Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      MsgBox Target.Value 
      MsgBox ActiveCell.Address
   End Sub