Sub tester()
Range("A1:A5").Validation.Add Type:=xlValidateList, _
Formula1:="=$D$1:$D$10"
End Sub

HTH
--
AP

"Dr.Ile" a écrit dans
le message de news: ...

Hello,

I'm wondering how to add a Validation List to a Range. I'm trying this

For i=1 to 5
Cells(i,1).Validation.Add Type:=xlValidateList,
Formula1:="=$D$1:$D$10"
next i

but it's not working. Can you help me out?
_Is_it_possible_without_looping?_

Thank you in advance
Regards

Dr.ile


--
Dr.Ile
------------------------------------------------------------------------
Dr.Ile's Profile:
http://www.excelforum.com/member.php...o&userid=15975
View this thread: http://www.excelforum.com/showthread...hreadid=550231