Delete Specific Sheets in a Workbook

[Guzzlr]

For Each sht In ActiveWorkbook.Worksheets
    If sht.Visible And (sht.Name = "4-0") _
    And (sht.Name = "4-1") _
    And (sht.Name = "4-2") Then
        sht.Delete
    End If
Next sht

Hello all
I thought the code above would loop through the workbook and delete the specific sheets listed, but it's not.
Where did I go wrong?
Thanks for the help

 

[My Aswer Is This]

You want to delete what sheets?
Are you wanting to delete sheets named:
4-0
4-1
4-2

Delete those 3 sheets?

 

[Guzzlr]

You want to delete what sheets?
Are you wanting to delete sheets named:
4-0
4-1
4-2

Delete those 3 sheets?

Correct, only those sheets and nothing else. Also, two more I just added: 4-3 & 4-4

So. I wish to delete only sheets:

4-0
4-1
4-2
4-3
4-4

I have Dim sht as worksheet
is it because I have sht as worksheet, instead of worksheets
thanks

 

[Joe4]

Those "ANDs" in your original code need to be "ORs".
There is no way any sheet can be named two different things at once.

 

[Fluff]

How about

For Each Sht In ActiveWorkbook.Worksheets
    If Sht.Visible Then
      If Sht.Name = "4-0" Or Sht.Name = "4-1" Or Sht.Name = "4-2" Then
        Sht.Delete
      End If
    End If
Next Sht

 

[My Aswer Is This]

Try this:

Sub Delete_Sheets()
'Modified 3-7-18 4:00 PM EST
Application.ScreenUpdating = False
Dim i As Long
Dim nn As Long
Application.DisplayAlerts = False
Dim Del As Variant
    Del = Array("4-0", "4-1", "4-2", "4-3", "4-4")
    nn = UBound(Del)
    For i = 1 To nn + 1
        Sheets(Del(i - 1)).Delete
    Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[Guzzlr]

How about

For Each Sht In ActiveWorkbook.Worksheets
    If Sht.Visible Then
      If Sht.Name = "4-0" Or Sht.Name = "4-1" Or Sht.Name = "4-2" Then
        Sht.Delete
      End If
    End If
Next Sht

Why are there no parenthesis and why two IF statements?
thanks

 

[Joe4]

Why are there no parenthesis?

There doesn't need to be. Equality (=) has a higher priority than AND and OR.
However, it doesn't hurt to put them in there. I often do, as it makes more sense and makes it easier for me to see what is going on.

 

[Guzzlr]

Try this:

Sub Delete_Sheets()
'Modified 3-7-18 4:00 PM EST
Application.ScreenUpdating = False
Dim i As Long
Dim nn As Long
Application.DisplayAlerts = False
Dim Del As Variant
    Del = Array("4-0", "4-1", "4-2", "4-3", "4-4")
    nn = UBound(Del)
    For i = 1 To nn + 1
        Sheets(Del(i - 1)).Delete
    Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Question:
What if there is no 4-4 sheet, will the others still be deleted?
Thanks

PS. I'm still trying to figure out how to walk with one foot in front of the other...the variant idea is confusing to me. what is a variant?

 

[My Aswer Is This]

Why are there no parenthesis and why two IF statements?
thanks

Two Ifs?

Because in your original post you said if visible

So first we have to only look at sheets that are visible then look and see what sheet name is.