Невозможно установить ListFillRangeProperty класса DropDown

Question

У меня есть рабочая книга Excel, которая работала, но сегодня утром зарегистрирована ошибка.

Сообщение об ошибке я получаю,

Ошибка выполнения 1004
Невозможно установить ListFillRangeProperty из DropDown класса

Ниже мой код - ошибка происходит в ws.DropDowns("DropDownStart").

DropDownStart и DropDownEnd являются правильными именами для раскрывающихся списков на моем листе, поэтому не уверены, что вызывает эту ошибку. Когда я отлаживать печатать имя я

mysheetName!$A$2:$A$338

, который является правильным, и все ячейки содержат даты в них. Так что бит застрял!

Dim ws As Worksheet 
Dim wsTime As Worksheet 
Set wsTime = ThisWorkbook.Sheets(WSTSJPM) 
Set ws = ThisWorkbook.Sheets(WSCHARTS) 

' get last date 
Dim lRow As Long 
lRow = wsTime.Range("A65536").End(xlUp).Row 
ws.Select 
ws.DropDowns("DropDownStart").ListFillRange = wsTime.Name & "!" & wsTime.Range("A2:A" & lRow).Address 
ws.DropDowns("DropDownEnd").ListFillRange = wsTime.Name & "!" & wsTime.Range("A2:A" & lRow).Address 

Обновление для комментариев

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

Название листа не содержит пробелов.

Я считаю, что я должен использовать «=» в диапазоне заполнения, если вы не знаете другого пути?

В раскрывающемся является управлением формой списка типа коробки и находится на мой рабочем листе

Answer 1

Другой проблема выглядит как у вас нет кавычки имен листов. Этот код работает для меня

Sub populatecombobox() 
    Dim ws As Worksheet 
    Dim wsTime As Worksheet 
    Dim lRow As Long 

    Set wsTime = Sheets("WSTSJPM") 
    Set ws = Sheets("WSCHARTS") 

    With wsTime 
     lRow = .Cells(Rows.Count, "A").End(xlUp).Row 
    End With 

    ws.DropDowns("DropDownStart").ListFillRange = "WSTSJPM!$A$2:$A$" & lRow 
    ws.DropDowns("DropDownEnd").ListFillRange = "WSTSJPM!$A$2:$A$" & lRow 

End Sub