I can't write it right now, but it shouldn't be too hard to change the lisp I provided. Just use a selection set, make sure what is selected is an xref. Make the block name, and the open each drawing with ObjectDBX and copy the objects into the new block. Maybe change what I did into a sub-routine, and then just pass the xref, and the block name to it. I think I would do that.
If no one writes one, then I will try when I have time. How would you (co-worker) want the block named?