Delete Surplus Sheets

[Damo71]

Hi

Hopefuly this is simple for VBA guys...

What I need to do is simply automatically delete all sheets except Sheet1, 2 & 3

Thanks

Damian

 

[VoG]

Try

Sub test2()
Dim i As Long
Application.DisplayAlerts = False
For i = Worksheets.Count To 4 Step -1
    Worksheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

 

[JackDanIce]

Try:

Sub KillAllTheHumans ()
Dim i as Long
 
Application.DisplayAlerts = False
 
For i = 1 to Worksheets.Count
  Select Case Sheets(i).Name
     Case "Sheets1", "Sheets2", "Sheets3"
     Case Else
          Sheets(i).Delete
  End Select
Next i
 
Application.DisplayAlerts = True
 
End Sub

This may not work but my IT at work is totally messed up today so can't text anything and doing all this from guesswork. If doesn't work, hopefully someone else can help...

 

[Ruddles]

Something like:-

option explicit
option compare text
sub deletesheets()
  dim ws as worksheet
  for each ws in thisworkbook.worksheets
    if ws.name="sheet1" or ws.name="sheet2" or ws.name="sheet3" then
      ' do nothing
    else
      application.displayalerts=false
      ws.delete
      application.displayalerts=true
    endif
  next ws
end sub