Loop through worksheets and identify name of table on each

I'd like to loop through three worksheets in my workbook and identify the name of the table on each (each worksheet has only one table).

The code below loops through the worksheets but I'm not sure how to get the name of the table on each. I tried using "Set CurrentTable = ActiveSheet.ListObjects(1)" but the ActiveSheet never changes - it's always the first sheet in the loop.

Please Login or Register  to view this content.