Test Plan Tree List

Hello

I am using this piece of code for v.11 to allow the field to be populated with the subject tree list, however this is not working for me. 

FUNCTION TEST_FieldCanChange(FIELDNAME, NEWValue)

  On Error Resume Next

  Test_Fields("TS_USER_01").List = Lists("SUBJECT")       

Thanks