I don't get any error messages. The code continues to generate a chart. It
just isn't sorted.

"Fredrik Wahlgren" wrote:


"Papa Jonah" wrote in message
...
I have been using the following code for several weeks, and it has worked
fine. All of a sudden, it is not sorting anymore. Any ideas what nuances
I
need to check to verify are still in place? I don't recall messing with
any
of this.

Range("y:AC").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:=False, Transpose:=False

Set pareto = table.Resize(fields, 5)

pareto.Select

Application.CutCopyMode = False
pareto.Sort Key1:=Range("AA2"), Order1:=xlDescending, Key2:=Range( _
"AC2"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1,
MatchCase _
:=False, Orientation:=xlTopToBottom ', DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal 'x1SortNormal is default



TIA

What happens? Do you get an error message? Can you sort manually?

/Fredrik