Clear data from multiple tables - modify code

Hi All,

I am using the below to clear out an existing table. Is there an easy way to modify this to perform the same command on multiple tables within the same sheet? Please note there is a pivot table that I want to ensure remains unchanged as I clear out these tables. Any help is greatly appreciated. Thank you.

Sub ClearJournalTables()

If MsgBox("This will clear the table!  Are you sure?", vbYesNo) = vbNo Then Exit Sub

Application.ScreenUpdating = False

Worksheets("Sheet1").ListObjects("Table16").AutoFilter.ShowAllData
    
    Dim lstObj As ListObject
    Set lstObj = ActiveSheet.ListObjects("Table16")
    lstObj.DataBodyRange.Rows.Delete

Application.ScreenUpdating = True
End Sub

Hi Sintek,

Thank you for the reply, I really appreciate it. I actually just tested a very similar code which appears to work well (complete code below). It is almost identical to yours, however I added an IF clause for error handling. Thanks again!

Sub ClearJournalTables()

If MsgBox("This will clear the table!  Are you sure?", vbYesNo) = vbNo Then Exit Sub

Application.ScreenUpdating = False

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...
        If Not tbl.DataBodyRange Is Nothing Then
        tbl.DataBodyRange.Rows.Delete
        End If
    Next tbl

Application.ScreenUpdating = True
End Sub