Альтернатива выпадающему списку.

[valerij]

Сообщение от Hugo121

Не забывайте про длину строки. Если не в этой задаче, то в другой можете столкнуться.

Это как?
Можно пример?

Ещё заметил, нужно обязательно указывать ячейку для списка иначе их, списков - будет несколько по положению активной ячейки.

Private Sub Worksheet_Activate()
Dim a As String, b As String, c As String
    a = Sheets(1).Name
    b = Sheets(2).Name
    c = Sheets(3).Name
    Range("A1").Select
    With Selection.Validation
    .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=a & "," & b & "," & c
    End With
    [b20].Select
End Sub

[IgorGO]

только заметил))
я это написал 10 сообщений тому назад:

  s = "1,2,3,4,valerij,Hugo121,gling,IgorGO"
  With Cells(1, 4).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=s
....

и вуаля... в Д1 - выпадающий список значений

Не забывайте про длину строки

есть ситуации, когда ексель сообщает об ошибке, когда длина строки превысила 256 символов! но этого случая это не касается в строку S можно положить хоть всю информацию с британской энциклопедии.

[Hugo121]

Положить то можно, и даже использовать немного... Но Вы попробуйте на практике такую валидацию применить - и не просто выполнили код и посмотрели, а выполнили, закрыли файл, открыли и посмотрели

[IgorGO]

подытожив тему:
альтернативой выпадающему списку признан выпадающий список, подготовленный по другому