code for sheet order

[dennisli]

Good morning,
I have some sheets named as year in such format 2000, 2001, 2008, 2007, 2005. I also have some other sheets named in letter such as Total, Payment, or in number but not four digits such as 11, 22, 32.
I need to put all these kinds of sheet with four digit number on the right side of sheet named Total, ranked from the latest year to the oldest year, such as 2008, 2007, 2005, 2001, 2000.
All other sheets should be put on the left of sheet named Total.
Any idea? Thanks lot.
Dennis

 

[tlowry]

Here is my take:

Sub movesheets()
    Dim sh, ct, sname, ws
    Sheets("Total").Move after:=Sheets(Sheets.Count)
    Set ws = ThisWorkbook.Sheets.Add
    For Each sh In ThisWorkbook.Sheets
        If sh.Name Like "####" Then
            ws.Range("A1").Offset(ct, 0) = sh.Name
            ct = ct + 1
        End If
    Next sh
    ws.Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    For Each sname In ws.Range("A1:A" & ct)
        Sheets(CStr(sname)).Move after:=Sheets(Sheets.Count)
    Next
    Application.DisplayAlerts = False
    ws.Delete
    Application.DisplayAlerts = True
End Sub