condition fails. If condition deletes main worksheet

hi,


Sub deleteallsheetsexceptsheet4()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.name <> "sheet4" Then ( i also tried -- if not ws.name="Sheet4" then)
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
End Sub

i think above code is correct. but , code is deleted "sheet4" also.

Try this

Please Login or Register  to view this content.

Line in your code

Please Login or Register  to view this content.

Line in corrected code

Please Login or Register  to view this content.

Yes sheet names are case sensitive.

You are welcome!


And Shiva ji if the answer really takes care of your query ,please mark the thread as "Solved".