Private Sub Worksheet_Change(ByVal Target As Range)
Dim checkTarget As Range
Set checkTarget = Application.Intersect(Target, Range("my_named_range"))
If checkTarget Is Nothing Then
Debug.Print "not active range, exit"
Else
MsgBox "success"
End If
End Sub
