for lnI=1 to .ListCount > if .selected(m.lnI) > llAny = .t. > if YesNo("Delete?") > delete > endif > nextI made the loop go backwards because I'm concerned that as you delete items, the position of items in the list may change. I think it won't happen until you requery, but I didn't want to the chance (and didn't have a minute to test).