Функция Intersect и именованный диапазон

[GWolf]

Доброго всем времени суток!

Target - ячейка
Range("MatertialS") - именованный диапазон

Написал такой код:

Код Выделить Развернуть

        If Not Intersect(Target, Range("MatertialS")) Is Nothing Then
            InputBox ""
        End If
, а он не работает. Выдает ошибку.
Может кто подскажет: чего не так? С именованными диапазонами только учусь еще работать.

[boa]

Добрый день,
Все правильно
а от куда вызываете?
например в модуле листа все работает

Код Выделить Развернуть

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, Range("MatertialS")) Is Nothing Then
            InputBox ""
        End If
End Sub

[_Boroda_]

Именованный диапазон какой? Уровня книги или уровня листа?Это если Excel 2007 и больше.
И покажите в файле как имя считается.

И да, откуда вызывается макрос и на какой лист ссылается имя

[GWolf]

Спасибо, друзья, за отклик.

И покажите в файле как имя считается.

вот это не понял 


Excel 14.0.7212 MS Office 2010

Этот код

Код Выделить Развернуть

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nR As Long, nC As Long, lLastRow As Long
   
    lLastRow = ActiveSheet.UsedRange.Rows.Count
   
    nR = Target.Row: nC = 5
    If Cells(nR, nC) <> "" And Cells(nR, nC + 2) = "" And nR < lLastRow - 9 Then
Application.EnableEvents = False
        Cells(nR, nC + 2) = "*"
Application.EnableEvents = True
        If Not Intersect(Target, Range("MatertialS")) Is Nothing Then
            InputBox ""
        End If
    ElseIf Cells(nR, nC) = "" And Cells(nR, nC + 2) <> "" And nR < lLastRow - 9 Then
Application.EnableEvents = False
        Cells(nR, nC + 2).Clear
Application.EnableEvents = True
    End If

    nR = 0: nC = 0: lLastRow = 0
End Sub

в модуле листа "L_Calc"

На скрепке файл проекта.
На второй скрепке - сообщение об ошибке. Ругается на эту строку:

Код Выделить Развернуть

If Not Intersect(Target, Range("MatertialS")) Is Nothing Then

[boa]

Range("MaterialS") <> Range("MatertialS")