title: Custom sorting with custom ordering
body: <p>I want to sort my rows based on the values in column <code>G</code>. There are 3 possible values: <em>Green</em>, <em>Red</em> and <em>Yellow</em>. I want the rows sorted with <em>Green</em> on top, then <em>Yellow</em>, then <em>Red</em>. </p>
  
  <p>Everything I try results in the sort order being alphabetical: <em>Green</em>, <em>Red</em> then <em>Yellow</em>. There is a secondary sort on column <code>R</code>, but that is working fine. </p>
  
  <p>My latest code is below. <code>rr</code> is the number of the last row. I have tried it with and without <code>Order1:=xlAscending</code>.</p>
  
  <p>sCustomList = "Green" "Yellow" "Red"</p>
  
  <pre><code>Application.AddCustomList ListArray:=sCustomList
      Range("A3:T" &amp; rr).Sort Key1:=Range("G3:G" &amp; rr), Order1:=xlAscending, _
      OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, _
      DataOption1:=xlSortNormal, Key2:=Range("R3:R" &amp; rr), Order2:=xlAscending
  </code></pre>