Insert Data Validation By Vba

I want to insert data validation to a cell by VBA. When i record the macro to put a list (value1;value2;value3) to a Cell the following code is generated and the validation works OK.(dropdown of the 3 values)

Sub Validation_by_VBA()
Range("A2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="value1;value2;value3"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

If i run this code from VBA I have only one value in the dropdown (value1;value2;value3) How can i change this code so it will work from vba as well?