Loop Through Tables In The Workbook Or Active Sheet

less than 1 minute read

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

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

Tags: tables

Categories: vba

Updated: March 19, 2017

Twitter Facebook LinkedIn

1 minute read

Here’s the simple steps to highlight the row and column of the selected cell which can be extremely useful when navigating large sets of data. Here’s a littl…

less than 1 minute read

How it Works Using SEARCH and ISNUMBER When you need to check if a cell contains specific text (or string) we need to combing the SEARCH and ISNUMBER functio…

less than 1 minute read

So you have a 0% value on one of your data labels and want to hide it?

1 minute read

Download the example workbook here: calculate-time-between-dates.xlsx