title: Sorting English Style dates
body: <p>I have a macro which is sorting a group of columns in an ascending order using column A which has an English format date and time in it. Each selection of data in the sheet covers two days. That's fine and working OK until the month changes at which point 30/04/2014 is treated as a larger value than 01/05/2014. At that point the 01/05/2014 rows are put to the top and the 30/04/2014 are sorted to the bottom, the opposite of what i would want.</p>
  
  <p>Here's the snippet of code that does the sorting.</p>
  
  <pre><code>With Range("AA1")
          .Value = 1
          .Copy
  
          'Modified the value conversion section to avoid changing the date to an american format
  
          With Range("B1:Z" &amp; WriteToRow - 1)
              .PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
          End With
          With Range("A1:Z" &amp; WriteToRow - 1)
              .Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlYes
              .EntireColumn.AutoFit
          End With
  
          .Value = ""
  </code></pre>
  
  <p>Can anyone help with this? I have thought that i could add an <strong>IF statement</strong> to say if the first 2 characters of A2 are 01 then sort descending but then i would need another IF to say that if the first two characters are 02 sort <strong>again</strong> into ascending so that when the file is processing between the 1st and 2nd of each month the order is correct. It seemed a bit messy to me so i thought i'd see if someone much smarter than me had a cleaner solution.</p>
  
  <p>Thanks, 7's</p>