Having Trouble with Deleteing Sheets

[Guzzlr]

For Each sht In ActiveWorkbook.Worksheets
    If sht.Visible And sht.Name = ("ASY") And sht.Name = ("TEMP") Then
    sht.Delete
    Worksheets.Add().Name = "ASY"
    Worksheets.Add().Name = "TEMP"
    Sheets("ASY").Move After:=Sheets("DATA")
    Sheets("TEMP").Move After:=Sheets("ASY")
    
    End If
    Next sht

Hello All...
I'm having troubles with my code above to delete the sheets ASY and TEMP.
I've used this before, and it worked, but not now?
Thanks for the help

 

[Fluff]

Try

    If Sht.Name = "ASY" Or Sht.Name = "TEMP" Then

 

[Guzzlr]

Try

    If Sht.Name = "ASY" Or Sht.Name = "TEMP" Then

Ohh...the And Or thing...gets me every time!
Thanks

 

[Fluff]

You're welcome