Loop Through Tables In The Workbook Or Active Sheet

Loop through all tables in the workbook

Sub LoopThroughAllTablesinWorkbook()
  Dim tbl As ListObject
  Dim sht As Worksheet

  '// Loop through each sheet and table in the workbook
  For Each sht In ThisWorkbook.Worksheets
  For Each tbl In sht.ListObjects

  'Do something to all the tables...
  tbl.ShowTotals = True

  Next tbl
  Next sht

End Sub

Loop through all tables in the active sheet

Sub LoopThroughAllTablesInWorksheet()

  Dim tbl As ListObject

  '// Loop through each sheet and table in the workbook
  For Each tbl In ActiveSheet.ListObjects

  '// Do something to all the tables...
  tbl.ShowTotals = True
    
  Next tbl

End Sub