如何仅处理Excel VBA中无命名范围的1004错误，避免屏蔽其他错误？

你的核心问题是当前全局错误处理会屏蔽所有错误，包括业务代码里的异常，导致无法排查问题。这里提供两种可行的解决思路：

方案一：针对性捕获特定错误 #

只在可能触发“无命名范围”错误的代码段添加局部错误处理，其他代码保持正常错误抛出。Excel中，无命名范围时访问Target.Name.Name会触发错误号1004，我们可以只处理这个错误：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim targetName As String
    Dim iCurrentWeek As Integer
    Dim iPreviousWeek As Integer
    Dim nNamedRange As Name
    
    '遍历当前工作表的命名范围
    For Each nNamedRange In Me.Names
        If nNamedRange.RefersToRange.Worksheet Is Me Then
            '仅在获取Target名称时启用临时错误处理
            On Error Resume Next
            targetName = Target.Name.Name
            '判断是否是无命名范围的错误（错误号1004）
            If Err.Number = 1004 Then
                Err.Clear
                On Error GoTo 0 '恢复默认错误处理
                Continue For '跳过当前循环，处理下一个命名范围
            End If
            On Error GoTo 0 '恢复默认错误处理
            
            '判断修改的单元格是否在当前命名范围内
            If Not Intersect(Target, nNamedRange.RefersToRange) Is Nothing Then
                Select Case targetName
                    '这里放你的业务代码，出错会正常抛出错误
                    Case "你的命名范围1"
                        '业务逻辑代码
                    Case "你的命名范围2"
                        '业务逻辑代码
                End Select
                Exit For '找到匹配的命名范围后退出循环
            End If
        End If
    Next nNamedRange
End Sub

方案二：提前判断，从根源避免错误 #

直接遍历命名范围，判断修改的单元格是否属于某个命名范围，不需要尝试获取Target.Name，彻底避免错误触发：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim targetName As String
    Dim iCurrentWeek As Integer
    Dim iPreviousWeek As Integer
    Dim nNamedRange As Name
    Dim isInNamedRange As Boolean
    
    '遍历当前工作表的命名范围，检查Target是否在其中
    For Each nNamedRange In Me.Names
        If nNamedRange.RefersToRange.Worksheet Is Me Then
            If Not Intersect(Target, nNamedRange.RefersToRange) Is Nothing Then
                targetName = nNamedRange.Name '直接取命名范围的名称
                isInNamedRange = True
                Exit For
            End If
        End If
    Next nNamedRange
    
    '只有当Target在命名范围内时，才执行业务逻辑
    If isInNamedRange Then
        Select Case targetName
            '这里放你的业务代码，出错会正常抛出错误
            Case "你的命名范围1"
                '业务逻辑代码
            Case "你的命名范围2"
                '业务逻辑代码
        End Select
    End If
End Sub

方案二更推荐，逻辑更清晰，不需要依赖错误处理，同时能保证业务代码的错误正常暴露，方便排查问题。

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