create another range where there are no spaces and use that.

--
Regards,
Tom Ogilvy


"Kris" wrote in message
...

range("d1").Validation.add formula1:=
"=$A$1:$A$7",Type:=xlValidateList,operator:=xlBetw een


How to avoid empty entries in drop down box if some of cell from A1:A7
are empty?

Thanks