[COLOR=#00007F][FONT="]Sub[/FONT][/COLOR][COLOR=#403F41][FONT="] Reorder_Sheets()[/FONT][/COLOR]
[COLOR=#007F00][FONT="]'PURPOSE: Order Worksheets in a custom way (works even if some of the worksheets are missing)[/FONT][/COLOR]
[COLOR=#007F00][FONT="]'SOURCE: www.TheSpreadsheetGuru.com[/FONT][/COLOR]
[COLOR=#00007F][FONT="]Dim[/FONT][/COLOR][COLOR=#403F41][FONT="] x [/FONT][/COLOR][COLOR=#00007F][FONT="]As[/FONT][/COLOR][COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]Long[/FONT][/COLOR]
[COLOR=#00007F][FONT="]Dim[/FONT][/COLOR][COLOR=#403F41][FONT="] myOrder [/FONT][/COLOR][COLOR=#00007F][FONT="]As[/FONT][/COLOR][COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]Variant[/FONT][/COLOR]
[COLOR=#403F41][FONT="]Application.DisplayAlerts = [/FONT][/COLOR][COLOR=#00007F][FONT="]False[/FONT][/COLOR]
[COLOR=#403F41][FONT="]Application.ScreenUpdating = [/FONT][/COLOR][COLOR=#00007F][FONT="]False[/FONT][/COLOR]
[COLOR=#403F41][FONT="]myOrder = Array("Sheet1", "Sheet4", "Sheet3", "Sheet6", "Sheet9", "Sheet11", "Sheet10", "Sheet5")[/FONT][/COLOR]
[COLOR=#00007F][FONT="]On[/FONT][/COLOR][COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]Error[/FONT][/COLOR][COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]Resume[/FONT][/COLOR][COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]Next[/FONT][/COLOR]
[COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]For[/FONT][/COLOR][COLOR=#403F41][FONT="] x = [/FONT][/COLOR][COLOR=#00007F][FONT="]UBound[/FONT][/COLOR][COLOR=#403F41][FONT="](myOrder) [/FONT][/COLOR][COLOR=#00007F][FONT="]To[/FONT][/COLOR][COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]LBound[/FONT][/COLOR][COLOR=#403F41][FONT="](myOrder) [/FONT][/COLOR][COLOR=#00007F][FONT="]Step[/FONT][/COLOR][COLOR=#403F41][FONT="] -1[/FONT][/COLOR]
[COLOR=#403F41][FONT="] Worksheets(myOrder(x)).Move Before:=Worksheets(1)[/FONT][/COLOR]
[COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]Next[/FONT][/COLOR][COLOR=#403F41][FONT="] x[/FONT][/COLOR]
[COLOR=#00007F][FONT="]On[/FONT][/COLOR][COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]Error[/FONT][/COLOR][COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]GoTo[/FONT][/COLOR][COLOR=#403F41][FONT="] 0[/FONT][/COLOR]
[COLOR=#403F41][FONT="]Application.DisplayAlerts = [/FONT][/COLOR][COLOR=#00007F][FONT="]True[/FONT][/COLOR]
[COLOR=#403F41][FONT="]Application.ScreenUpdating = [/FONT][/COLOR][COLOR=#00007F][FONT="]True[/FONT][/COLOR]
[COLOR=#00007F][FONT="]End[/FONT][/COLOR][COLOR=#403F41][FONT="] [/FONT][/COLOR][COLOR=#00007F][FONT="]Sub[/FONT][/COLOR]