Aynı klasör içerisindeki excel dosyalarını ve çalışma sayfalarını temizleme

[vuranoğlu]

İyi akşamlar Sub Temiz100()

Sheets("1").Range("a:J") = ""

Sheets("2").Range("C3:O156") = ""

Sheets("3").Range("C1:AL5000") = ""

Sheets("4").Range("A:AK") = ""

Sheets("5").Range("A1:AK5000") = ""

Sheets("6").Range("A1:AK5000") = ""

Sheets("7").Range("A1:AD5000") = ""

End Sub

Ekteki dosyada ki gibi 35 adet klasör ve içerilerinde 7 adet çalışma sayfası bulunmaktadır. Yukarıdaki kodlarla ayrı ayrı temizleyebiliyorum. Ocak 2021 içerisinde bulunan sayfaları nasıl tek kodla temizleyebiliriz. Teşekkürler.