Hi, i'm trying to add a new item to validation list. It seems code runs
without errors but the result is a row, not a dropdown list. When I close the
workbook and open I can see drop down list.

Help please.

Code to add "Item3"
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _
:=xlBetween, Formula1:="Item1;Item2;Item3"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = False
.ShowError = False
End With

Use commas after each item not semi-colons
Item1,Item2,Item3
Paul

"KT1972" <(E-Mail Removed)> wrote in message
news:A848640E-D971-412C-88A3-(E-Mail Removed)...
> Hi, i'm trying to add a new item to validation list. It seems code runs
> without errors but the result is a row, not a dropdown list. When I close
> the
> workbook and open I can see drop down list.
>
> Help please.
>
> Code to add "Item3"
> With Selection.Validation
> .Delete
> .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning,
> Operator _
> :=xlBetween, Formula1:="Item1;Item2;Item3"
> .IgnoreBlank = True
> .InCellDropdown = True
> .InputTitle = ""
> .ErrorTitle = ""
> .InputMessage = ""
> .ErrorMessage = ""
> .ShowInput = False
> .ShowError = False
> End With

Thanks.

"Paul" wrote:

> Use commas after each item not semi-colons
> Item1,Item2,Item3
> Paul
>
> "KT1972" <(E-Mail Removed)> wrote in message
> news:A848640E-D971-412C-88A3-(E-Mail Removed)...
> > Hi, i'm trying to add a new item to validation list. It seems code runs
> > without errors but the result is a row, not a dropdown list. When I close
> > the
> > workbook and open I can see drop down list.
> >
> > Help please.
> >
> > Code to add "Item3"
> > With Selection.Validation
> > .Delete
> > .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning,
> > Operator _
> > :=xlBetween, Formula1:="Item1;Item2;Item3"
> > .IgnoreBlank = True
> > .InCellDropdown = True
> > .InputTitle = ""
> > .ErrorTitle = ""
> > .InputMessage = ""
> > .ErrorMessage = ""
> > .ShowInput = False
> > .ShowError = False
> > End With
>
>
>