เขียน VBA ให้เซลล์ แสดงค่า Validation อย่างไรครับ

[nutty]

ผมได้พยายาม เขียน Code เพื่อให้เซลล์ H5 ในอีก Worksheet หนึ่ง แสดงค่ารายการแบบ validation แต่เขียนไม่สำเร็จสักทีนะครับ ไม่ทราบว่าผิดพลาดตรงจุดไหน รบกวนท่านผู้รู้แนะนำด้วยนะครับ

Worksheets("sheet1").Range("H5").Validation.Modify xlValidateList, =worksheets("Sheet2").range("A1:A10")

ขอบคุณมากครับ

ปล. ไม่ทราบว่า หากต้องการเปลี่ยนจาก Validation เป็น Combo Box จะต้องเขียน Code เหมือนกันหรือเปล่าครับ

[อรวีร์]

การกำหนด Data Validation จะอ้างข้าม Sheet ไม่ได้ค่ะ คุณต้องใช้เทคนิกโดยกำหนดชื่อให้ Range บริเวณนั้นก่อน แล้วจึงนำมาใช้เป็น ValidationList

ActiveWorkbook.Names.Add "MyList", "=Sheet2!R1C1:R10C1"
Sheets("Sheet1").Range("H5").Validation.Delete
Sheets("Sheet1").Range("H5").Validation.Add xlValidateList, Formula1:="=MyList"

[nutty]

ขอบคุณ คุณอรวีร์ มากครับ