Thank you Ardus, but I'm not satisfied with solution.
I'm trying with this but it's not working (I need n for looping):

Dim n As Integer
n = 10
Range(Cells(1, 1), Cells(n, 1)).Validation.Add Type:=xlValidateList, _
Formula1:="=$D$1:$D$10"

Regards

Dr.il

--
Dr.Il
-----------------------------------------------------------------------
Dr.Ile's Profile: http://www.excelforum.com/member.php...fo&userid=1597
View this thread: http://www.excelforum.com/showthread.php?threadid=55023