Deleting WorkSheets with macro

[kaffal]

Hi, I would like to have a macro to delete all the existing worksheets in the workbook except for 2 worksheets, named : "Extract" and "Summary" .

 

[VoG]

Try

Sub DelShts()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Extract" And ws.Name <> "Summary" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

 

[shyrath]

Try this

Sub DeleteSheet()


    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    For i = Sheets.Count To 1 Step -1
    
      If Sheets(i).Name = "Extract" Or Sheets(i).Name = "menu" Then
      
      Else
      
      Sheets(i).Delete
      End If
      
      
    Next i
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub