For i = 1 To Sheets.Count
wi = Sheets(i).Name
di = CLng(DateSerial(Mid(wi, 7, 2), Mid(wi, 4, 2), Mid(wi, 1, 2)))
For j = i To Sheets.Count
wj = Sheets(j).Name
dj = CLng(DateSerial(Mid(wj, 7, 2), Mid(wj, 4, 2), Mid(wj, 1, 2)))
If dj < di Then
Sheets(j).Move Before:=Sheets(i)
End If
Next
Next