Выпадающий список с учетом регистра содержимого - VBA

Формулировка задачи:

Всем привет , создаю выпадающий список:

Set x = ws.Range("D:D").SpecialCells(xlCellTypeConstants)
 
    With ws.Range(x.Address).Validation
    
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=имя_1_таблицы_имен"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
        
    End With

Тут такая проблема у меня в выпадающем списке есть значения "ОдиН", "Два", "ТРИ" , естественно значение "одиннн" в ячейку с таким выпадающим списком ввести не получится... НО! при этом если ввожу значение например "один" , то оно вставится ! То есть где что нужно прописать, чтобы

регистр

букв выпадающего списка учитывался ! т.е. я мог ввести только "ОдиН" , а не его различные вариации с регистром букв....

Решение задачи: «Выпадающий список с учетом регистра содержимого»

textual
                            Листинг программы 
                        

                            Sub registr()
 
Set ws = ThisWorkbook.Worksheets("Лист1")
 
Set x = ws.Range("D:D").SpecialCells(xlCellTypeConstants)
 
    With ws.Range(x.Address).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=имя_1_таблицы_имен"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
        
    End With
    
End Sub
                        