ListObject.ListColumns (Excel)

Returns a ListColumns collection that represents all the columns in a ListObject object.

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