VBA - 删除多个工作表时出错

Question

我编写了 VBA 代码来删除多个工作表。它可以根据我的目的删除，但在完成删除时出现以下错误 这是我的代码：

Option Explicit
Sub deletesheet()
    Dim wb As Workbook
    Dim sh1 As Worksheet
    Dim i As Long
    Dim ws As Worksheet
    Set wb = ThisWorkbook
    Application.DisplayAlerts = False
    'On Error Resume Next
    For Each ws In ThisWorkbook.Worksheets
            If ws.name <> "sheet1" Then
                ws.Delete
            End If
    Next ws
    On Error GoTo 0
    
    Application.DisplayAlerts = True
    
End Sub

如果我输入“On Error Resume Next”，它可以跳过这个问题，但我真的很想知道为什么会发生这种情况以及如何解决它？可以帮忙看看吗？