咱们先拆解下你这段代码为啥会把所有工作表都删掉：

1. 逻辑判断完全搞反了：你用了Or连接条件，这意味着只要工作表名称不是其中某一个，条件就会成立——但任何工作表都不可能同时等于所有指定名称，所以所有工作表都会被判定为要删除的对象！应该用And，表示当工作表名称不等于所有指定表名时才执行删除。
2. 删除对象错误：循环里你用的是ActiveSheet.Delete，这会删除当前激活的工作表，而不是你正在遍历的NalSheet，这就导致了随机删除的问题，必须改成NalSheet.Delete。
3. 缺少边界判断：Excel不允许删除工作簿里的最后一个工作表，所以咱们得加个判断，确保至少保留一个指定的工作表。

下面是修复后的完整代码：

Sub DeleteUnwantedSheets()
    Dim NalSheet As Worksheet
    Dim keepSheets As Variant
    Dim isKeepSheet As Boolean
    Dim keepCount As Integer
    
    ' 定义需要保留的工作表名称数组，方便后续维护
    keepSheets = Array("Dep 1", "Test", "Loop", "Offset_Positioning", "Range_Cell Value")
    
    Application.DisplayAlerts = False
    keepCount = 0
    
    ' 先统计需要保留的工作表数量，避免删到只剩最后一个
    For Each NalSheet In ActiveWorkbook.Sheets
        If IsError(Application.Match(NalSheet.Name, keepSheets, 0)) = False Then
            keepCount = keepCount + 1
        End If
    Next NalSheet
    
    ' 遍历删除不需要的工作表
    For Each NalSheet In ActiveWorkbook.Sheets
        isKeepSheet = False
        ' 检查当前工作表是否在保留列表中
        If IsError(Application.Match(NalSheet.Name, keepSheets, 0)) = False Then
            isKeepSheet = True
        End If
        
        ' 只有当不是保留表，且保留表数量大于1时才删除（避免删光）
        If Not isKeepSheet And keepCount > 1 Then
            NalSheet.Delete
        ElseIf Not isKeepSheet And keepCount = 1 Then
            MsgBox "无法删除最后一个保留工作表：" & NalSheet.Name, vbExclamation
        End If
    Next NalSheet
    
    Application.DisplayAlerts = True
End Sub

改动说明： #

• 把需要保留的表名放到数组keepSheets里，后续要修改保留列表直接改数组就行，更易维护
• 先用循环统计保留表的数量，确保不会删除最后一个工作表
• 使用Application.Match来判断当前工作表是否在保留列表中，比多个And条件更简洁
• 明确用NalSheet.Delete删除当前遍历的工作表，避免随机删除问题
• 加了提示框，当试图删除最后一个保留表时给出提示

内容的提问来源于stack exchange，提问作者Nalini Panwar