Excel çalışma kitabındaki istenmeyen sayfaların silinmesi

Excel dosyamın açılışında isimleri x ve y olan sayfalar haricinde sayfa varsa bu sayfaların silinmesini nasıl sağlayabilirim?
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