custom sort list order in vba

i have tried the below formula and it works fine but it sorts in ascending order..

Have you tried changing it to descending?

Please Login or Register  to view this content.

Thanks Stykynts,

i have tried but it does not match on my need in my daily report..i really need to do it as custom sort list base...can you help on this...thanks

you full support is highly appreciated..

Hi jaslake,

thank you for the link but still it does not work..

my file looks like this..Sort.jpg

i used the below code..

Dim i As Long
If Application.GetCustomListNum(Array("221,143,224,9955,6565")) = 0 Then
Application.AddCustomList Array("221,143,224,9955,6565")
End If
i = Application.GetCustomListNum(Array("221,143,224,9955,6565"))
Range("A9:H").SpecialCells(xlLastCell).sort Key1:=Cells("B9:B"), _
Header:=xlYes, Order1:=xlAscending, _
OrderCustom:=i, DataOption1:=xlSortNormal, _
MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
End Sub

Thank you..

Hi Richard,

Sorry if you could show me the whole code where you want me to put the ordercustom:=n mainly because i am still new in vba programming and i am still learning..

Thank you...

Hi Jaslake,

Indeed, you did a great job to my issue...thank you very much..