Почему я получаю эту ошибку: Метод 'Range' объекта '_Global' не работает, когда я помещаю:

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

Но не тогда, когда я положил

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

К сожалению в дальнейшем в коде мне нужно использовать этот формат: Range("Имя")

1 ответ1

2

Вам нужно использовать объект Range, а не String

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............

Вы были очень близки!

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .