For example:
Code:
Dim ws As Worksheet
Set ws = ActiveWorkbook.Worksheets("Sheet1")
With ws.Sort
With .SortFields
.Clear
.Add Key:=ws.Range("A2:A19"), SortOn:=xlSortOnValues, _
Order:=xlAscending, CustomOrder:="h,k,a,d,e", _
DataOption:=xlSortNormal
End With
.SetRange ws.Range("A1:A19")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Just amend the CustomOrder string argument.