保留工作薄中不想删除的工作表，其他全部删除

nnsea

Sub test()
'删除其他表，保留 绝不能删除 表
Dim sht As Worksheet

Application.DisplayAlerts = False

For Each sht In Sheets
'如果工作表名不等于“决不能删除”
    If sht.Name <> "绝不能删除" Then
    '将工作表删除
        sht.Delete
    End If
Next

Application.DisplayAlerts = False

End Sub