Excel dosyasındaki istenmeyen sayfaların silinmesi

Soru:
Excel dosyamın açılışında isimleri x ve y olan sayfalar haricinde sayfa varsa bu sayfaların silinmesini nasıl sağlayabilirim?

Cevap:
VBA penceresinde ThisWorkbook bölümünde aşağıdaki kodu yapıştırın



Private Sub Workbook_Open()
Application.DisplayAlerts = False
Tekrar:
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "x" Or Worksheets(i).Name = "y" Then GoTo ATLA
Worksheets(i).Delete
GoTo Tekrar:
ATLA:
Next i
Application.DisplayAlerts = True
End Sub