VBA批量删除excel表高级版

Sub 批量删除表高级版() '批量删除worksheet,在只知道worksheets的name时
    Dim x As Integer
    Application.DisplayAlerts = False
    
    For x = Worksheets.Count To 1 Step -1
        If Worksheets(x).Name = "数据" Then Exit For  '遇到worksheets("数据")就停止
        Worksheets(x).Delete
        
    Next
    
    Application.DisplayAlerts = True
 

End Sub