Sekmeleri sil makrosu.

[Bora K]

Merhabalar
Aşağıdaki kodu çoklu halde kullanmak istiyorum
5 li 6 lı gibi. Aynı anda hepsi silinecek.
Yardımcı olabilirseniz çok sevinirim. Teşekkürler.

Sub Sekme_Sil()
Application.DisplayAlerts = False
Sheets("TS0021").Delete
Application.DisplayAlerts = True
End Sub

 

[Muzaffer Ali]

Sheets("TS0021").Delete

Satırını çoğaltarak aşağıdaki gibi yapabilirsiniz

Sub Sekme_Sil()
 Application.DisplayAlerts = False
 Sheets("TS0021").Delete
 Sheets("SayfaAdı1").Delete
 Sheets("SayfaAdı2").Delete
 Application.DisplayAlerts = True
End Sub

 

[Bora K]

Merhaba
İşe yaradı.
Çok teşekkür ederim.

 

[Bora K]

düzeltildi