VBA Sort issue

[Donai]

Hi, why do i get "Sort method of range class failed for the below?

With shtAsset
  .Range("A5").Sort Key1:=.Range("P6"), Order1:=xlAscending, _
    Key2:=.Range("E6"), Order2:=xlAscending, Key3:=.Range("G6"), Order3:=xlDescending, Header:=xlGuess, _
     ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
 End With

 

[VoG]

Try

CustomOrder:=1

 

[Donai]

Try

CustomOrder:=1

I tried that and i get an error named argument not found

 

[VoG]

Try just removing that parameter altogether. CustomOrder was introduced in Excel 2007.

 

[Donai]

Still get the same error 1004 error

.Range(gGroupHeader).Sort Key1:=.Range("P6"), Order1:=xlAscending, _
Key2:=.Range("E6"), Order2:=xlAscending, Key3:=.Range("G6"), Order3:=xlDescending, Header:=xlGuess, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

 

[VoG]

Maybe it should be if gGroupHeader is a named range

.Range("gGroupHeader").Sort Key1:=.Range("P6"), Order1:=xlAscending, _
 Key2:=.Range("E6"), Order2:=xlAscending, Key3:=.Range("G6"), Order3:=xlDescending, Header:=xlGuess, _
  MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

or is the sheet protected?

 

[Donai]

Even if do "A5" i still get the same error. No sheet is not protected

.Range("A5").Sort Key1:=.Range("P6"), Order1:=xlAscending, _
Key2:=.Range("E6"), Order2:=xlAscending, Key3:=.Range("G6"), Order3:=xlDescending, Header:=xlGuess, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

 

[VoG]

Well, I tried this and it worked without error

With ActiveSheet
    .Range("A5").Sort Key1:=.Range("P6"), Order1:=xlAscending, _
Key2:=.Range("E6"), Order2:=xlAscending, Key3:=.Range("G6"), Order3:=xlDescending, Header:=xlGuess, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With

 

[Donai]

Ok i manage to get it to work, by closing the workbook and reopening, dont know why but it worked.

 

[hiker95]

Donai,

How about:

With shtAsset
  .Range("A5[B][SIZE="5"]:P20[/SIZE][/B]").Sort Key1:=.Range("P6"), Order1:=xlAscending, _
    Key2:=.Range("E6"), Order2:=xlAscending, Key3:=.Range("G6"), Order3:=xlDescending, Header:=xlGuess, _
     ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
 End With