Dropdownlist vullen

[KevZ]

Als ik onderstaande code gebruik om een dropdown(gegevensvalidatie) te maken, dan worden alle items op 1 regel getoond.
Als dan vervolgens handmatig in de gegevensvalidatie ga en gelijk weer op OK klik, dan is de dropdown wel goed.

Is er een manier dat de dropdown in 1 keer goed is zonder dat ik er handmatig in moet gaan?

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="No;Yes"   '< dit wordt niet als seperate items gezien tot ik er handmatig in ga.
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

 

[OctaFish]

Puntkomma vervangen door komma.

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="No,Yes"

 

[KevZ]

Dat werkt, soms is het zo simpel thanks:thumb: