Question : arrange worksheet ascending order

How to arrange worksheet in ascending order? alphanumeric

Answer : arrange worksheet ascending order

zachvaldez,

This should do it:

Sub SortSheets()
Dim a As Integer, b As Integer, x As Integer

x = Sheets.Count
On Error GoTo Handler
For a = 1 to x - 1
   For b = a + 1 to x
      If Sheets(b).Name < Sheets(a).Name Then
            Sheets(b).Move Before:=Sheets(a)
      End If
   Next b
Next a

Sheets(1).Select
Handler:

End Sub

Patrick
Random Solutions  
 
programming4us programming4us