In post #6 of Mel's I see the same sort procedure as mine ... why mine is wrong ?!
Simple because, ad mentioned by Tabsoft, you have forgotten to clear the variable 'CounterA' before entering the sorting routine.

Cheers

Al.