Change your semicolons to commas:

xlBetween, Formula1:="a,b,c"

hth,

Doug

"Lico_VBA" wrote in message
...
when i recorded this macro the excel displayed the list normally, but when
i
execute this code then excel shows one line in the list with "a;b;c".

Does anyone knows how to make excel display three lines ( "a" , "b", "c")?

Sub Macro2()
' Macro2 Macro
'
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
_
xlBetween, Formula1:="a;b;c"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub