VBA: задать имя диапазона с переменной String

Question

У меня проблема, которая кажется простой, но я не могу понять, в чем проблема с моим кодом.

Dim x As Long, y As Long, z As Long 
Dim ContractName As String 
Dim RangeToName As Range 

y = Cells(1, 1).End(xlToRight).Column 

    For x = 1 To y 
     ContractName = Cells(1, x) 
     z = Cells(Rows.count, x).End(xlUp).Row 
     Set RangeToName = Range(Cells(2, x), Cells(z, x)) 
     RangeToName.Name = ContractName 
    Next x 
End Sub 

Я пытаюсь назвать диапазоны, основанные на тексте в ячейке «ContractName», которая изменится для каждого x.

Но строка «RangeToName.Name = ContractName» дает мне ошибку 450 во время выполнения.

Однако, если я добавляю какой-либо другой текст в этой строке, например, «RangeToName.Name =» test «& ContractName« все работает, и мои диапазоны называются полной строкой текста, включая текст в ячейке «ContractName». ..

Что мне не хватает?

Приветствия

Answer 1

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

Например:

Имя не может начинаться с цифры.

Имя не может быть «Это тест»

Имя не может быть «A1»

«KL2000» не может использоваться в качестве имени, так как было бы в конфликт с ссылкой на ячейку KL2000, но «_KL2000» будет полезен.

Вы всегда должны пытаться выполнить то, что вы пытаетесь сделать с VBA непосредственно в приложении Excel. Если вы сделали это с именем типа «KL2000», вы получили бы содержательное сообщение об ошибке.