Hi James,

Firstly make sure you set all the SELECTED properties to .F.

Then try setting the .LISTINDEX = j, just after you set the SELECTED property to .T. - This is long winded but seems to work.

Here's my code for something similar:

WITH oObject
.ENABLED = .T.
.LISTINDEX = 1

FOR i = 1 TO .LISTCOUNT
.SELECTED(i) = .F.
NEXT i

FOR i = 1 TO .LISTCOUNT
IF (.LISTITEM(i,lColNumber) $ ALLTRIM(lcField2)) OR ALLTRIM(lcField2) == "ALL"
.SELECTED(i) = .T.
.LISTINDEX = i
ENDIF
NEXT i
ENDWITH