사용자 지정 정렬

가나다 순이 아니라 사용자가 지정한 순서대로 정렬하는 매크로이다

다른 책에서는 아래와 같이 나와있었는데 엑셀2016 환경에서 적용해보니 잘 안된다. 확인해볼 필요가 있다.
.sortfields.add key:=range("a2"), customorder:="lee,park,kim"
.apply

다음은 Stack Overflow에서 가져온 코드이다.

Dim vCustom_Sort As Variant

Dim lc  As Long

vCustom_Sort = Split("Body,Chassis,Theta,PC Forklift,5S", ",")

Application.AddCustomList ListArray:=vCustom_Sort

With ActiveSheet

   .Sort.SortFields.Clear

   lc = .Cells(Rows.Count, "F").End(xlUp).Row

   With .Range("B7:BN" & lc)

.Cells.Sort Key1:=.Columns(3), Order1:=xlAscending, _

Orientation:=xlTopToBottom, Header:=xlNo, MatchCase:=False, _

                       OrderCustom:=Application.CustomListCount + 1

End With

   .Sort.SortFields.Clear

End With