Prueba de excel vba si el objetivo es un rango con nombre

prueba de excel vba si el objetivo es un rango con nombre

'VBA inline code to test if Target is a named range:

If Not Intersect(Target, [NamedRangeName]) Is Nothing Then
    If Target.Cells.Count = [NamedRangeName].Cells.Count Then
        If Target.row = NamedRange.row Then
            If Target.Column = NamedRange.Column Then  
                'Place code here to execute when Target is
                'the named range.
            End If
        End If    
    End If
End If



'Or encapsulated into a function:

Function TargetIsNamedRange(Target As Range, NamedRange As Range) As Boolean
    If Not Intersect(Target, NamedRange) Is Nothing Then
        If Target.Cells.Count = NamedRange.Cells.Count Then
            If Target.Row = NamedRange.Row Then
                If Target.Column = NamedRange.Column Then
                    TargetIsNamedRange = True
                    Exit Function
                End If
            End If
        End If
    End If
End Function


'
'
'