Er der en måde man kan slette alt indhold fra ALLE tabeller i sit Excelark, i stedet for en af gangen, som jeg gør nu?

Sub RydAlleTabeller() 

 With Range("Løn_Oktober").ListObject 

 If Not .DataBodyRange Is Nothing Then 

 .DataBodyRange.Delete 

 End If 

 End With 

 With Range("Streaming_Tjenester_Oktober").ListObject 

 If Not .DataBodyRange Is Nothing Then 

 .DataBodyRange.Delete 

 End If 

 End With 

 With Range("Kickstarter_Oktober").ListObject 

 If Not .DataBodyRange Is Nothing Then 

 .DataBodyRange.Delete 

 End If 

 End With 

'Osv. osv...

End Sub

 

Takker på forhånd!