Как из VBA получить доступ к "умным таблицам" Excel?

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

Добрый день. Буду очень признателен, если кто-нибудь подскажет, как можно из VBA получить перечень всех "умных таблиц" в Excel 2010? Я до сегодняшнего дня, каюсь, не знал, что такое вообще существует, пользовался только именованными диапазонами... А оказывается, есть и Таблицы, они тоже отражаются в Диспетчере имен, но с другим значком, и не попадают в семейство ActiveWorkBook.Names... Подскажите, пожалуйста, есть ли подобное какое-то семейство именно для ТАБЛИЦ? Если кто-то как и я не знает, что это за зверь - вот:http://www.planetaexcel.ru/techniques/2/136/ или вотСсылка на справку Майкрософта

Решение задачи: «Как из VBA получить доступ к "умным таблицам" Excel?»

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

                            Option Explicit
 
Sub test()
    Dim lst As ListObject, wsh As Worksheet
    
    For Each wsh In ThisWorkbook.Worksheets
        For Each lst In wsh.ListObjects
            Debug.Print wsh.Name, lst.Name
        Next
    Next
End Sub
                        