select SEMPCODE,SNAME from EMPINFO where &cFilter into array aEmployees with ThisForm.lstEmployees .Clear if type('aEmployees')='U' wait 'No Employees found matching the selection criteria'; window timeout 5 return endif nTotalItems=(alen('aEmployees')/2) for x = 1 to nTotalItems .AddItem((aEmployees(x,1)),x,1) && Either of these .ListItem(x,2)=(aEmployees(x,2)) && two lines cause the error next .Value=.List(1) .Refresh endwithIt seems like aEmployees is being treated as an undefined function. if I comment out the .AddItem or .ListItem lines, the error disappears.