Navigation

   Hej Alle
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!

Navigation

Ryd alle tabeller