Alphabetizing the tabs

[Chris Zrepskey]

How do I automatically get my tabs to alphabetize?

[davesexcel]

Sub SortALLSheets()
'sort sheets within a workbook in Excel 7 -- Bill Manville
'modified to sort all sheets instead of just worksheets
Dim iSheet As Integer, iBefore As Integer
For iSheet = 1 To ActiveWorkbook.Sheets.Count
Sheets(iSheet).Visible = True
For iBefore = 1 To iSheet - 1
If UCase(Sheets(iBefore).Name) > UCase(Sheets(iSheet).Name) Then
ActiveWorkbook.Sheets(iSheet).Move Before:=ActiveWorkbook.Sheets(iBefore)
Exit For
End If
Next iBefore
Next iSheet
End Sub



Insert this code into a module

[Chip Pearson]

There is no built-in way to do this. You need some VBA code. See
www.cpearson.com/excel/sortws.htm.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Chris Zrepskey" <Chris [email protected]> wrote
in message
news:[email protected]...
> How do I automatically get my tabs to alphabetize?
>