Список на другом листе

[Gamlex]

Подскажите пожалуйста! Проблема вот в чём: мне нужно чтобы в ячейке на одном листе можно было вибирать значения из списка на другом листе. Далаю вручную через данные->проверка (в источнике пишу формулу =ДВССЫЛ("Лист2!$C$2:$C$6")и всё работает). Однако этот вариант мне не подходит так как я хочу динамически переопределять диапазон списка. Я пишу макрос:
Range("A1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ДВССЫЛ(""Лист2!$C$2:$C$ 6"")"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Запускаю, однако он выдаёт ошибку 1004 (application denied...) Не могу разобраться в чём проблема. В сети тоже ничего не нашёл!

[Hugo121]

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

[Gamlex]

К сожалению не помогает

[Hugo121]

А Вы пробовали? Не верю...

Sub tt()
    ActiveWorkbook.Names.Add Name:="vRange", RefersTo:="=Sheet2!C2:C6"
    Range("A1").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
             xlBetween, Formula1:="=vRange"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

[Gamlex]

Да, всё работает, я просто писал лист2!имя_диапазона... Спасибо вам большое!

[Gamlex]

Однако, проблема опять. В ячейку А1 он выводит исправно а вот например в ячейку A5 выводит не весь список а часть последних значений. Почему?

[Gamlex]

Баксы забыл поставить

[Iren77]

А если список в другой книге?