Поиск и удаление столбцов

[mchip]

Доброго времени суток!
Подскажите пожалуйста, как макросом быстро выбрать и удалить пустые столбцы? Файл прилагается...

[EducatedFool]

Sub test()
    Dim ro As ListRow, ra As Range: Application.ScreenUpdating = False
    For Each ro In activesheet.ListObjects(1).ListRows
        If ro.Range.Cells(2) = "" Then If ra Is Nothing Then Set ra = ro.Range Else Set ra = Union(ra, ro.Range)
    Next ro
    If Not ra Is Nothing Then ra.EntireRow.Delete
End Sub

Пустые строки определяются по отсутствию значения во 2-й ячейке.

[mchip]

Немного не то. Мне нужно полностью удалить пустые столбцы (A:A, F:F, G:G и т.д.) Столбцы таблицы "Таблица2009".

[EducatedFool]

Извиняюсь, невнимательно читал задание...

Попробуйте так:

Sub test()
    Dim ro As ListColumn, ra As Range: Application.ScreenUpdating = False
    For Each ro In ActiveSheet.ListObjects(1).ListColumns
        If ro.Range.Cells(3) = "" Then ro.Range.EntireColumn.Delete
    Next ro
End Sub

[mchip]

То что надо! Спасибо!