excel vba detect named range from range code example

Example: check range is in another range vba

If Application.Intersect(rng1, rng2) Is Nothing Then 
    'herecomesthecode
Else
    'herecomesthecode
End if