Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming |