Sort Worksheet Tabs

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a bunch of tabs and the name's are numbers. Any way to sort the tabs
with a macro.

Thanks
Frank
 
Option Explicit

Sub SortWorksheets()
Dim sCount As Integer, i As Integer, j As Integer
'Application.ScreenUpdating = False
sCount = Worksheets.Count
If sCount = 1 Then Exit Sub
For i = 1 To sCount - 1
For j = i + 1 To sCount
If Worksheets(j).Name < Worksheets(i).Name Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
End Sub
 
Try this

Sub sortem()
For a = 1 To Sheets.Count - 1
For b = a + 1 To Sheets.Count
If (Sheets(a).Name) > (Sheets(b).Name) Then
Sheets(b).Move Before:=Sheets(a)
End If
Next b
Next a
End Sub

Mike
 
You can click and drag them by the tabs and move them to their rightful
locations--or you could run a macro:

Chip Pearson's:
http://www.cpearson.com/excel/sortws.htm

David McRitchie's:
http://www.mvps.org/dmcritchie/excel/buildtoc.htm#sortallsheets

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Remember that the names are strings,

so
1
2
11
12
20
30

will sort like:
1
11
12
2
20
30

You'll have to either adjust the code to convert the names to numbers--or use a
nice format for your worksheet names:

0001
0002
0011
0012
0020
0030
....
 
Back
Top