Deleting Worksheets
 

Try this approach. Type the sheet names all in CAPS in the sub

Sub delshts()
Application.DisplayAlerts = False
For Each sh In Worksheets
Select Case UCase(sh.Name)
Case "AAA", "B B", "FS": x = 1
Case Else
End Select
'If x < 1 Then MsgBox sh.Name' testing
If x < 1 Then MsgBox sh.Delete
Next sh
Application.DisplayAlerts = True
End Sub

--
Don Guillett
SalesAid Software

"Rob" wrote in message
...
I have another question pertainiing to this particular project. By the
way,
saving the file does help (lol). At the beginning of this monly project
there are certain worksheets that need to be deleted. After all the
calculations are verified there are certain sheets that need to be
deleted.
I am using the following code at the beginning:

Sub DeleteCCWorksheets()

Dim mySht As Worksheet


Application.DisplayAlerts = False
For Each mySht In ActiveWorkbook.Worksheets
If mySht.Name < "Cost Center Template" And mySht.Name < "ytd.srv.inv"
And mySht.Name < "InvSrvTemplate" And mySht.Name < "ytd.srv.detail" And
mySht.Name < "InvSrvytdTemplate" And mySht.Name < "inv.finance" And
mySht.Name < "inv.srv.detail" And mySht.Name < "patti detail 2" And
mySht.Name < "dcd.detail" And mySht.Name < "recap" And mySht.Name <
"patti
detail" And mySht.Name < "detail by item" And mySht.Name < "invoice
detail"
Then
mySht.Delete
End If
Next mySht
Application.DisplayAlerts = True
End Sub

This code works fine.

Here is the code that is to be used at the end:

Sub DeleteNonMonth()



Application.DisplayAlerts = False
For Each mySht In ActiveWorkbook.Worksheets
If mySht.Name = "Cost Center Template" And mySht.Name = "ytd.srv.inv"
And
mySht.Name = "InvSrvTemplate" And mySht.Name = "ytd.srv.detail" And
mySht.Name = "InvSrvytdTemplate" And mySht.Name = "inv.srv.detail" And
mySht.Name = "patti detail 2" And mySht.Name = "dcd.detail" And mySht.Name
=
"patti detail" And mySht.Name = "invoice detail" Then
mySht.Delete
End If
Next mySht
Application.DisplayAlerts = True
End Sub

This code does nothing and I don't get an error message. Will someone
please help?