VBA to sort Sheets in descending order

[noslenwerd]

Wondering if there is some VBA code that may look at sheets 2 through (sheet count), and sort them in descending order as shown?

I have a process that compares data between each sheet, and they must be in proper order. I do not trust the users to make sure these sheets are sorted correctly
Thanks!

Below is an example of the format in my workbook.

 

[Marc L]

According to post #9 :​

Sub Demo2()
              Dim S$(), V(), N&, A$
    With Sheets
        If .Count > 2 Then
            ReDim S(1 To .Count - 1)
            ReDim V(1 To .Count - 1)
        For N = 2 To .Count
            With .Item(N)
                S(N - 1) = .Name
                V(N - 1) = CLng(DateSerial(2000 + Right(.Name, 2), Left(.Name, 2), Mid(.Name, 3, 2)))
            End With
        Next
            V = Application.Match(Application.Large(V, Evaluate("COLUMN(" & [A1].Resize(, .Count - 1).Address & ")")), V, 0)
            A = ActiveSheet.Name
        For N = 1 To .Count - 2
            If .Item(N + 1).Name <> S(V(N)) Then .Item(S(V(N))).Move .Item(N + 1)
        Next
            Sheets(A).Select
        End If
    End With
End Sub

 

[Marc L]

​

In my previous code it's more obvious to use .Item(A).Select rather than Sheets(A).Select … (The same for post #5)​

 

[noslenwerd]

That worked brilliantly! Thank you very much for that.