vba - 删除除前 x 个工作表之外的所有工作表

Question

我正在尝试删除除前 20 张工作表之外的所有工作表

我有这段代码——我认为它可以工作，但我现在才运行它，它只会删除一些工作表。

Sub DeleteAll()
    i = Worksheets.Count
    For x = 21 To i
        Application.DisplayAlerts = False
        Worksheets(x).Delete
        Application.DisplayAlerts = True
    Next x
End Sub

Answer 1

Do While Worksheets.Count > 20
   Worksheets(21).Delete
Loop