Deleting worksheets with looping

Question

Could you tell me someone why just every second sheet is deleted, however if I turn off the worksheets.delete line than in the message box appears all the sheet names.

Answer 1

Delete the sheet in reverse. Every time you delete a sheet, the Sheet index gets shifted.

Sub tor()
    Dim wsz As Integer, i as Long

    wsz = ThisWorkbook.Worksheets.Count

    Application.DisplayAlerts = False

    For i = wsz To 2 Step -1
        ThisWorkbook.Worksheets(i).Delete
    Next i

    Application.DisplayAlerts = True
End Sub