Delete sheets - all except 3

[joecrabtree]

To all,

I have a workbook with many sheets, and wish to delete all of them
apart from the following 3:

WELCOME, ImportedRawData, + ImportedDataEdit


How can I do this?

Thanks very much for your help in advance,

Regards

Joseph Crabtree

 

[Bob Phillips]

Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "WELCOME" And _
ws.Name <> "ImportedRawData" And _
ws.Name <> "ImportedDataEdit" Then
ws.DisplayPageBreaks
End If
Next ws
Application.DisplaAlerts = True

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)

 

[ankur]

Hi Joseph,

Try this...

sub test()

dim sheet as object

for each sheet in activeworkbook.sheets

if sheet.name<>"WELCOME" and sheet.name<>"ImportedRawData" and
sheet.name<>"ImportedDataEdit" then

sheet.delete

end if

next sheet
End sub

Regards
Ankur
www.xlmacros.com

 

[Dave Peterson]

One more...

Dim wks As Worksheet
Application.DisplayAlerts = False
For Each wks In ActiveWorkbook.Worksheets
select case lcase(wks.name)
case is = "welcome", "importedrawdata","importeddataedit"
'do nothing
case else
wks.delete
end select
next wks
Application.DisplaAlerts = True

Since the "select case" is looking for lower case characters (lcase), make sure
you type those strings in lower case.

 

[Dave Peterson]

Autocomplete is too quick!

ws.displaypagebreaks
should be
ws.delete

<vbg>