Deleting tabs in Excel

[shoey812]

Hi -

I have an Excel workbook with several tabs titled with #'s (Ex: 100,
205, 303, 544, etc.) Is it possible to create a macro that will delete
all the tabs except for a certain group? For example, I would want to
keep tab 205 and 303 but delete all the other ones.

Thanks
Stephen

 

[Don Guillett]

for each ws in worksheets
if ws.name<>"nameone" and ws.name<>"name2" then ws.delete
next

 

[Dave Peterson]

You may want to look at the "select case" example in VBA's Help:

Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
Select Case LCase(wks.Name)
Case Is = "205", "303", "keepthis"
'do nothing
Case Else
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End Select
Next wks

You always have to have at least one visible sheet in the workbook--this code
didn't do any checking for that.