Hi!

Try this one, its only a recorder macro but ......

Sub ValidationList()
' first cell in column
Range("A4").Select
' area selection (first cell to last cell)
Range(Selection, Selection.End(xlDown)).Select
With Selection.Validation
.Delete
' add validate list all cells
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$D$4:$D$7"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Regards
Kari J Keinonen