For each Table in ActiveSheet.ListObjects (Copy TableHeader) How?

**nordicdust** · 12-30-2018, 12:04 PM

I have this Code to Loop through all Tables on a sheet and copy data to another sheet and it works fine...But
Instead of copying the TableName I would like to copy the TableHeader, and that has turned out to be more difficult than I thought.

I can find the TableHeader (TableName = SourceSheet.ListObjects(1).ListColumns(1))
But when I put it in my loop, It keeps returning the TableHeader of the first Table.

I hope one of you guys have an idear how to solve this.

I will post two pictures so it can give you an idear.3.PNG 4.PNG

Please Login or Register  to view this content.

**Richard Buttrey** · 12-30-2018, 12:05 PM

Please upload a workbook or a representative cut down copy, anonymised if necessary. It is always easier to advise if we can see your request in its context.

Show a before and after situation with manually calculated results, explaining which information is data and which is results, and if it's not blindingly obvious how you have arrived at your results some explanatory notes as well.