>Thankyou Tamar
>
>Everytime I try to click remove I get the messagebox 'You have not selected a composition type to remove' even if I have selected or not.
>
>Thanks

Why you're going backwards in your loop?
It should be

 for lnI=1 to .ListCount
         if .selected(m.lnI)
             llAny = .t.
             if YesNo("Delete?")  
                delete
             endif
      next