ListObject.ListColumns (Excel)

Retorna uma coleção ListColumns que representa todas as colunas em um objeto ListObject . Somente leitura.

Dim lcsListColumns As ListColumns
Set lcsListColumns = ActiveCell.ListObject.ListColumns