Microsoft Office Forums - View Single Post

Colin Legg · 06-01-2012, 01:28 PM

That's an odd one. I used google and I found this thread. So, using the suggestion there:

Code:

            With .Sort
                .SortFields.Add _
                     Key:=fRange, _
                     SortOn:=xlSortOnValues, _
                     Order:=xlAscending, _
                     DataOption:=xlSortNormal
                 .SetRange sRange
                 .Header = xlGuess
                 .MatchCase = False
                 .Orientation = xlTopToBottom
                 .SortMethod = xlPinYin
                 Application.Calculate
                 .Apply
                 .SortFields.Clear
            End With

The person that had the problem on the other thread said this version failed on the first run, but after that it worked fine.