Clear all Tables from All Sheets

[jamesmev]

I am currently using the below:

           With Sheets("MY").ListObjects("MY")
        
        'Check If any data exists in the table
        If Not .DataBodyRange Is Nothing Then
            'Clear Content from the table
            .DataBodyRange.ClearContents
        End If
        
    End With
    
End Sub

To clear the table of the sheet "MY" and the Table "MY".

However, I am wanting to clear all Sheets and all tables but leaving the headers.
without having to do it for every sheet/table.
Any advice?

 

[JEC]

For example

Sub jec()
 Dim sh As Worksheet, lo As ListObject
 For Each sh In ThisWorkbook.Sheets
    For Each lo In sh.ListObjects
       If Not lo.DataBodyRange Is Nothing Then lo.DataBodyRange.Delete
    Next
 Next
End Sub

 

[jamesmev]

For example

Sub jec()
 Dim sh As Worksheet, lo As ListObject
 For Each sh In ThisWorkbook.Sheets
    For Each lo In sh.ListObjects
       If Not lo.DataBodyRange Is Nothing Then lo.DataBodyRange.Delete
    Next
 Next
End Sub

Thank you! This is exactly what I was needing. Super Results

 

[jamesmev]

For example

Sub jec()
 Dim sh As Worksheet, lo As ListObject
 For Each sh In ThisWorkbook.Sheets
    For Each lo In sh.ListObjects
       If Not lo.DataBodyRange Is Nothing Then lo.DataBodyRange.Delete
    Next
 Next
End Sub

I found one Table that i need to save that can't be deleted each time..
Any Solutions? Table Name MatVariable

 

[Joe4]

I found one Table that i need to save that can't be deleted each time..
Any Solutions? Table Name MatVariable

Try this modicification to JEC's code:

Sub jec()
 Dim sh As Worksheet, lo As ListObject
 For Each sh In ThisWorkbook.Sheets
    For Each lo In sh.ListObjects
       If (Not lo.DataBodyRange Is Nothing) And (lo.Name <> "MatVariable") Then lo.DataBodyRange.Delete
    Next
 Next
End Sub

 

[jamesmev]

Try this modicification to JEC's code:

Sub jec()
 Dim sh As Worksheet, lo As ListObject
 For Each sh In ThisWorkbook.Sheets
    For Each lo In sh.ListObjects
       If (Not lo.DataBodyRange Is Nothing) And (lo.Name <> "MatVariable") Then lo.DataBodyRange.Delete
    Next
 Next
End Sub

Thank you worked perfectly.

 

[Joe4]

You are welcome.

I am re-marking JEC's reply as the solution, as his solution did indeed answer your original question.