|
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
|
|
|
|