DataSheet.Range($A$1:$A$15).Name = vList1
With Range("I8").Validation
Modify xlValidateList, xlValidAlertStop, xlBetween,
"=vList1"
InCellDropdown = True
End With

--
Regards,
Tom Ogilvy

"Richmont " wrote in message
...
I am trying to create a valadation list with a range of values from
another worksheet, however keep getting an error
"Run time ERROR '1004
Application -defined or ojbect defined error."

Following is my code:

With Range("I8").Validation
Modify xlValidateList, xlValidAlertStop, xlBetween,
"=DataSheet.Range($A$1:$A$15)"
InCellDropdown = True
End With

Appreciate any help with this

Cheers
Rich


---
Message posted from http://www.ExcelForum.com/