Question - Sorting by specified values

[JonatanRaven]

Is it possible to set the macro to sort in a specific order, set by me?

For instance, if I want specific words sorted not necessarily alphabetiacally, is that possible?

For instance if I have these words:

• Principal
• Teacher
• Pupil

And I want them to sort like this:

1. Principal
2. Teacher
3. Pupil

That's not alphabetically sorted and it's not numerically sorted.

How do I go about it?

Here's the macro created to sort the column alphabetically:

Sub ConfRank()
'
' ConfRank Makro
'

'
    Range("C5:AR24").Select
    Range("AR24").Activate
    Selection.Sort Key1:=Range("V5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("V5:V24").Select
    ActiveWindow.Zoom = 100
End Sub

Any help is appreciated..