Установить диапазон и определить именованный диапазон в VBA

Question

Я пытаюсь определить именованный диапазон (с областью рабочей книги) в VBA на основе определенных входных данных, чтобы помочь выяснить ячейки, которые должны быть включены в диапазон. Чтобы сделать это очень простым, я пробовал следующие два с ошибками, указанными ниже. A, B, X, Y определяются из некоторых расчетов

rName = <some string that decides the name> 
Set TempRng = .Range(.Cells(A,B), .Cells(X,Y)) 
ActiveWorkbook.Names.Add Name:=rName, RefersTo:=Worksheets("Sheet1").TempRng 

Это дает мне «объект или метод не поддерживается» ошибка или что-то подобное, на линии Set TempRng.

rName = <string ...> 
Set TempRng = Worksheets("Sheet1").Range(Cells(A,B), Cells(X,Y)) 
ActiveWorkbook.Names.Add Name:=rName, RefersTo:= <blah blah...> 

Это дает мне «определенную или определенную объектом ошибку» в той же строке.

Не могли бы вы помочь мне найти правильный способ определения этого диапазона?

Answer 1

Использование: ""

Refersto:="=" & TempRng.Address 

Или более непосредственно (как говорит L42)

TempRng.Name = stName 

Чтобы установить диапазон убедитесь, что вы включили "С", прежде чем начать ИНГ вещи

With wsWhatever 
    Set TempRng = .Range(.Cells(A,B), .Cells(X,Y)) 
end with 

Answer 2

Я думаю, что это немного более прямолинейно.

TempRng.Name = rname 

Или вы даже можете напрямую назначить имя без использования переменной.

TempRng.Name = "myrangename" 

Объем названия Workbook только в том случае, имеет решающее значение для ваших нужд. НТН.