Adding i new item to current data validation list
 

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

Adding i new item to current data validation list
 

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

"KT1972" wrote in message
...
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

Adding i new item to current data validation list
 

Thanks.

"Paul" wrote:

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

"KT1972" wrote in message
...
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