Скрыть некоторые пункты в выпадающем списке

[zhaaskar]

Здравствуйте! Имеется список допустимых значений: Россия, Белоруссия, Украина, 01, 02, 03. При выборе пункта Россия, она автоматически изменяется на код страны 01 при помощи макроса.
Так вот как мне скрыть последние 3 пункта через макрос? Желательно пример кода, так как VBA я толком не знаю. Заранее спасибо

[zhaaskar]

Нашел код:

Sub Valid()

    With Selection.Validation
        .Add Type:=xlValidateList, Formula1:=Chr(160) & "Россия, Белоруссия, Украина, 01, 02, 03"
    End With
    
End Sub

Что мне нужно добавить, чтобы последние 3 пункта не выводились, но были в списке допустимых?

[Hugo121]

Так?

Sub Valid2()

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Chr(160) & "Россия, Белоруссия, Украина, 01, 02, 03"
        .InCellDropdown = False
    End With

End Sub

[zhaaskar]

Hugo121, Не совсем так. Мне нужно, чтобы появлялся выпадающий список, но без последних 3-х значений.

[Hugo121]

Не понимаю... Чтоб был, но без, но позволял писать? Такое невозможно.

[zhaaskar]

Hugo121, Имеется список допустимых значений (Россия, Белоруссия, Украина, 01, 02, 03). Мне нужно, чтобы при открытии списка, последние 3 пункта не появлялись (только Россия, Белоруссия, Украина)....

[DV68]

Вариант без макросов:

[Hugo121]

Ну так уберите эти 01, 02, 03 из списка - Вы ведь их макросом подставляете.

[zhaaskar]

Hugo121, когда я нажимаю на проверка данных -> обвести неверные данные, они обозначаются как неверные (при выборе пункта Россия, она автоматически изменяется на код страны 01 при помощи макроса). Надеюсь я четко сформулировал суть

[Hugo121]

DV68 - офигеть...
Это сейчас придумано? Признавайтесь