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

Change the semi-colons ( to commas...

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

--
Rick (MVP - Excel)


"Lico_VBA" <(E-Mail Removed)> wrote in message
news:994C5479-D2C3-488A-B28F-(E-Mail Removed)...
> 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
>
>
>

Change your semicolons to commas:

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

hth,

Doug

"Lico_VBA" <(E-Mail Removed)> wrote in message
news:994C5479-D2C3-488A-B28F-(E-Mail Removed)...
> 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
>
>
>