Excel VBA Настройка именованного диапазона с переменной

Question

У меня есть код VBA, который определяет конкретный столбец и сохраняет позицию столбца как двойной. Оттуда, я пытаюсь установить именованный диапазон, равный ему, ниже. Когда я запускаю код, я получаю ошибку «1004» во время выполнения. Есть идеи?

Sub namedRangeUpdate() 
Dim namedRangeReference as double 
namedRangeReference = ActiveCell.Column 
ActiveWorkbook.Names("TM_New").RefersToR1C1 = "='Raw Data'!C" & namedRangeReference 
End Sub 

Когда я запускаю программу, даже если это ошибки на последней строке, когда я наведите курсор мыши на namedRangeReference, она отражает namedRangeReference = 32. Код получает этот номер столбца, но он не попадает в Именованный диапазон.

Answer 1

Выбрано; неверное кодирование. Это работает как шарм.

ActiveWorkbook.Names.Add Name:="TM_New", RefersToR1C1:="='Raw Data'!C" & namedRangeReference