to check this i added
dim target as range
set target = selecttion
and in your code replaced Selection by target so the line that starts
Selection.Sort
became
target.Sort
my demo file worked for both versions of Excel.
in my demo, the selected cell was the row label 'Month'
"abajo" <(E-Mail Removed)> wrote in message
news:6D3800E1-12A2-45F4-8928-(E-Mail Removed)...
> Any Idea why the following macro code returns this error:
> "Run-time error '1004': Sort Method of Range Class failed". The code
> works
> fine in Office Excel 2003.
>
> ActiveSheet.PivotTables(pivName).PivotSelect "month[All]", xlLabelOnly
> Selection.Sort Order1:=xlAscending, Type:=xlSortLabels,
> OrderCustom:=csort, Orientation:=xlTopToBottom
>
> Thanks,
|