一次删除多张纸

Question

我有多张纸，每张纸上都有数据。我想从第 4 个工作表删除到无限制的工作表。我试过下面的代码：

Sub Delete_Sheets()
    Application.ScreenUpdating = False
    Dim j As Integer
    j = Worksheets.Count
    For k = 4 To j
        With Sheets(k).Delete
        End With
    Next k
    Application.ScreenUpdating = True
End Sub

问题是，每次代码都询问我删除工作表的许可，最后看到只删除了几张工作表。有人帮忙。

Answer 1

关闭显示的警报。从最后一张纸向后删除。

Sub Delete_Sheets()
Dim j as long
Dim k As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    j = Worksheets.Count
    For k = j To 4 Step -1
        Sheets(k).Delete
    Next k
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub