Umdrehen einer For-Schleife?

Sub BlaetterLoeschen()
Dim WS_Count As Integer
Dim WS As Worksheet
' Set WS_Count equal to the number of worksheets in the active workbook.
WS_Count = ActiveWorkbook.Worksheets.Count
' performing a loop, checking every sheet. If sheetname equals "OrderStatus" it will be  _
deleted.
' No alert will be shown to the user.
For  i = 1 to WS_Count
Set WS = ActiveWorkbook.Worksheets(i)
Application.DisplayAlerts = False
If WS.name = "OrderStatus" Or WS.name = "Order Tracker" Then
WS.Delete
End If
' Alert will be activated again.
Application.DisplayAlerts = True
Set WS = Nothing
Next i
End Sub