What code could sort the CURRENT selection (which may be of any size) on the basis of the ACTIVE cell?