Loop through tables and selecting a column

[blaisjoel]

Trying to loop through all tables on a worksheet and select column #5 but don't know how.

All I got is:

For each tbl in ActiveSheet.ListObjects
     ActiveSheet.ListObjects(tbl).ListColumns(5).Range.Select[COLOR=#242729][FONT=Consolas]
[/FONT][/COLOR]next tbl

It does not like the ActiveSheet.ListObjects(tbl).ListColumns(5).Range.Select line because of the ListObject.

 

[MickG]

Try:-

ActiveSheet.ListObjects(Tbl.Name).DataBodyRange.Columns(5).Select

 

[blaisjoel]

Works great.
ActiveSheet.ListObjects(tbl.Name).ListColumns(5).Range.Select

Thanks