Schnittmenge FEHLER: Methode 'Range' des Objekts '_Global' ist fehlgeschlagen

Warum bekomme ich diesen Fehler: Die Methode 'Range' des Objekts '_Global' ist fehlgeschlagen, wenn ich:

Private Sub Workbook_SheetChange(ByVal WS As Object, ByVal Target As Range)
Dim NTT As Range
Set WS = ActiveSheet
Set NTT = WS.Range("$A$1:$U$154")

If Not Intersect(Target, Range("NTT")) Is Nothing Then     '< error Here

Aber nicht, wenn ich sage

Private Sub Workbook_SheetChange(ByVal WS As Object, ByVal Target As Range)
Dim NTT As Range
Set WS = ActiveSheet

If Not Intersect(Target, Range("A$1:$U$154")) Is Nothing Then

Leider muss ich in einem Code das folgende Format verwenden: Range ("Name")

Sie müssen das Range-Objekt anstelle eines Strings verwenden

Dim WS As Worksheet, NTT As Range
Set WS = ActiveSheet
Set NTT = WS.Range("$A$1:$U$154")
If Not Intersect(Target, NTT) Is Nothing Then............

Sie waren sehr nah!