Добавление выпадающего списка к ячейке

With Range("A1:A3").Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="мама,мыла,раму"
End With

With Cells(1, 1).Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$C$3:$C$10"
    End With

    With Cells(1, 1).Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$I$11:$I$14"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Cells(1, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:="=$I$11:$I$14"
Cells(1, 1).Validation.IgnoreBlank = True
Cells(1, 1).Validation.InCellDropdown = True
Cells(1, 1).Validation.InputTitle = ""
Cells(1, 1).Validation.ErrorTitle = ""
Cells(1, 1).Validation.InputMessage = ""
Cells(1, 1).Validation.ErrorMessage = ""
Cells(1, 1).Validation.ShowInput = True
Cells(1, 1).Validation.ShowError = True

    Dim lst(2) As String 'Â ýòîò ìàññèâ âû çàíîñèòå ñâîè äàííûå.
    'Íàïðèìåð:
    lst(0) = "Êðàñíûé"
    lst(1) = "Ñèíèé"
    lst(2) = "Çåëåíûé"
    'Ñïèñêè ñîçäàþòñÿ â äèàïàçîíå A1:A3.
    Range("A1:A3").Validation.Add Type:=xlValidateList, Formula1:=Join(lst, ",")
    'Функция Join - возвращает строку, в которой элементы массива (первого аргумента функции)
    'перечислены через разделитель (второй аргумент функции - в данном случае запятая)