Delete sheets - all except 3
 

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

Delete sheets - all except 3
 

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)


"joecrabtree" wrote in message
oups.com...
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

Delete sheets - all except 3
 

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


On Dec 19, 2:46 pm, "joecrabtree" wrote:
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

Delete sheets - all except 3
 

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.



joecrabtree wrote:

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

--

Dave Peterson

Delete sheets - all except 3
 

Autocomplete is too quick!

ws.displaypagebreaks
should be
ws.delete

<vbg

Bob Phillips wrote:

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)

"joecrabtree" wrote in message
oups.com...
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


--

Dave Peterson