I am using Select Case in a macro that deletes worksheets to skip
specifically named worksheets. Code is:

For Each Worksheet In Worksheets
Select Case Worksheet.name
Case "Sheet1", 'Sheet2", "Sheet3", etc.

Case Else

Worksheet.Activate
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True


End Select
Next Worksheet

The problem is I have a worksheet named "BGE" that I want skipped and the
select case is not recognizing it and deletes it. I wonder if this has to do
with Excel 2k7 using BGE as a cell value. Any ideas?

On Mon, 29 Mar 2010 08:52:02 -0700, kevlarmcc
<(E-Mail Removed)> wrote:

>I am using Select Case in a macro that deletes worksheets to skip
>specifically named worksheets. Code is:
>
>For Each Worksheet In Worksheets
>Select Case Worksheet.name
> Case "Sheet1", 'Sheet2", "Sheet3", etc.
>
> Case Else
>
> Worksheet.Activate
> Application.DisplayAlerts = False
> ActiveSheet.Delete
> Application.DisplayAlerts = True
>
>
>End Select
>Next Worksheet
>
>The problem is I have a worksheet named "BGE" that I want skipped and the
>select case is not recognizing it and deletes it. I wonder if this has to do
>with Excel 2k7 using BGE as a cell value. Any ideas?

BGE is not in your Case statement; so when Worksheet.Name = BGE, the case else
code will get executed, and the sheet will be deleted.
--ron

You have 'Sheet2" instead of "Sheet2". Could that be it?
--
HTH,

Barb Reinhardt



"kevlarmcc" wrote:

> I am using Select Case in a macro that deletes worksheets to skip
> specifically named worksheets. Code is:
>
> For Each Worksheet In Worksheets
> Select Case Worksheet.name
> Case "Sheet1", 'Sheet2", "Sheet3", etc.
>
> Case Else
>
> Worksheet.Activate
> Application.DisplayAlerts = False
> ActiveSheet.Delete
> Application.DisplayAlerts = True
>
>
> End Select
> Next Worksheet
>
> The problem is I have a worksheet named "BGE" that I want skipped and the
> select case is not recognizing it and deletes it. I wonder if this has to do
> with Excel 2k7 using BGE as a cell value. Any ideas?

You are using ActiveSheet.Delete which will always delete that sheet
that is active in Excel. It is NOT the sheet that is iterated by the
For Each loop. You need to either select that sheet,
(Worksheet.Select) or use the For Each variable (Worksheet.Delete). It
is a common misconception that a For Each loop activates the
ActiveSheet or ActiveCell. Such is not the case. If you expect a sheet
or cell to be active, you must activate it yourself.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com



On Mon, 29 Mar 2010 08:52:02 -0700, kevlarmcc
<(E-Mail Removed)> wrote:

>I am using Select Case in a macro that deletes worksheets to skip
>specifically named worksheets. Code is:
>
>For Each Worksheet In Worksheets
>Select Case Worksheet.name
> Case "Sheet1", 'Sheet2", "Sheet3", etc.
>
> Case Else
>
> Worksheet.Activate
> Application.DisplayAlerts = False
> ActiveSheet.Delete
> Application.DisplayAlerts = True
>
>
>End Select
>Next Worksheet
>
>The problem is I have a worksheet named "BGE" that I want skipped and the
>select case is not recognizing it and deletes it. I wonder if this has to do
>with Excel 2k7 using BGE as a cell value. Any ideas?

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