vba sorting stopped working
"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
|