| Home |
| Search |
| Today's Posts |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Case not recognized in Select Case
Hi Chip,
I think you are looking for something like: Sub DeleteSheets() Dim sht As Worksheet For Each sht In ActiveWorkbook.Sheets Select Case sht.Name Case "Sheet1", "Sheet2", "BGE" ' Complete list of sheets to preserve Case Else Application.DisplayAlerts = False sht.Delete Application.DisplayAlerts = True End Select Next End Sub HTH, Wouter |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| change data of entire column from small case to upper case | Excel Worksheet Functions | |||
| Case without Select Case error problem | Excel Discussion (Misc queries) | |||
| Changing multiple cell text from lower case to upper case | Excel Discussion (Misc queries) | |||
| Change the text from lower case to upper case in an Excel work boo | Excel Discussion (Misc queries) | |||
Threaded Mode
