Remove object from named selection set

(
	objToRemoveArr = #($Sphere007, $Sphere008, $Sphere009)
 
	objsBA = #{}
	for o in objToRemoveArr do append objsBA (getHandleByAnim o)	
	for i = 1 to selectionSets.count where (objsCnt = (getNamedSelSetItemCount i)) != 0 do
	(		
		selectionSets[(getNamedSelSetName i)] = (for n = 1 to objsCnt where not objsBA[getHandleByAnim (obj = getNamedSelSetItem i n)] collect obj	)
	)
)