Hi Garry,

Am Fri, 22 Aug 2014 13:08:13 -0400 schrieb GS:

Bummer that Sort *still* doesn't work well with numeric sequencing!!

..Sort.SortFields.Add Key:=.Range(varKey(i)) _
, SortOn:=xlSortOnValues, Order:=xlDescending

delete SortOn:=xlSortOnValues
Then most of the times Sort works well
If not, please send me your example


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional