Sort using CustomList - error

I need to sort a list using custom sort order
I have created CustomList with

Application.AddCustomList ListArray:=customListArray

After that I add common Sort function:

With Range(...).sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("G1:G" & CStr(sheetsAmount)), SortOn:=xlSortOnValues, Order:=xlAscending, OrderCustom:=Application.CustomListCount, DataOption:=xlSortNormal
        .SetRange Range("F1:G" & CStr(sheetsAmount))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With

but my code crushes on .SortFields.Add line with Run-time error '448': Named argument not found. I tried to google on this error, but without any result
What am I writing wrong in .SortFields.Add arguments?