Deleting Sheets with VBA

[mhockey88]

Hi - I'm trying to figure out how to delete extraneous sheets in a workbook using VBA. The following code works, but only for keeping the one sheet titled "New Month" obviously. There are two other sheets I need to keep, "Column Guide" and "Data Validation". I tried to use this: If ws.Name <> "New Month" OR "Data Validation" OR "Column Guide" Then ws.delete, but it did not work

For Each ws in Sheets
Application.DisplayAlerts=False
If ws.Name <> "New Month" Then ws.delete
Next
Application.DisplayAlerts=True

Thanks!

 

[ranman256]

Sub Macro1()
Application.DisplayAlerts = False
For Each ws In Sheets
      'keep these
    If ws.Name = "New Month" Or ws.Name = "xxx" Then
    Else
       ws.Delete
    End If
Next
Application.DisplayAlerts = True
End Sub

 

[AlphaFrog]

Try this...

If ws.Name <> "New Month" And ws.Name <> "Column Guide" And ws.Name <> "Data Validation" Then ws.Delete

 

[Rick Rothstein]

Give this a try...

Sub RemoveExtraneousSheets()
  Dim X As Long
  Application.DisplayAlerts = False
  For X = Sheets.Count To 1 Step -1
    If Sheets(X).Name <> "New Month" And Sheets(X).Name <> "Column Guide" _
       And Sheets(X).Name <> "Data Validation" Then Sheets(X).Delete
  Next
  Application.DisplayAlerts = True
End Sub

 

[mhockey88]

Worked like a charm, thanks guys!