Steve,

Exactly. It's a nice tool for my work.

Tommy,
Error, subscript out of range:

Set mTmp(mCntr) = ThisDrawing.ActiveSelectionSet.Item(mI)

mCntr = 31 and mI = 24


But really appreciate this...I thought the code would be much simpler.