выпадающий список макросом - вместо списка строка

[cheshiki1]

вот часть кода отвечающая за создание выпадающего списка

Код Выделить Развернуть

If Range("D" & ActiveCell.Row).Value = "Талреп" Then
              With Range("H" & ActiveCell.Row).Validation
              .Delete
              .Add Type:=xlValidateList, Formula1:="ВВ;УУ;ГГ;ВУ;ВГ;ГУ"
              .IgnoreBlank = True: .InCellDropdown = True
              End With
               End If
но почему то список появляется не в форме списка а одной строкой.

[Serge 007]

Надо поменять разделители:

Код Выделить Развернуть

.Add Type:=xlValidateList, Formula1:="ВВ,УУ,ГГ,ВУ,ВГ,ГУ"

[cheshiki1]

Serge 007 Спасибо. помогло.