Sorting sheets

[Guest]

Hi All,
I have a workbook with several sheets. Each sheet is named by an employee ID
number. I want to sort the sheets according to the position of each group of
employee.
Is there a way to sort sheets? (A-Z or customize)
Thanks in advance

 

[Ardus Petus]

Sub sortsheets()
'Re-Sort sheet names
' Thanks to McRitchie & Bill Manville
Dim iSheet As Integer
Dim iBefore As Integer

For iSheet = 1 To Worksheets.Count
For iBefore = 1 To iSheet - 1
If UCase(Sheets(iBefore).Name) > UCase(Sheets(iSheet).Name) Then
Sheets(iSheet).Move before:=Sheets(iBefore)
Exit For
End If
Next iBefore
Next iSheet
End Sub

HTH

 

[Ardus Petus]

That was an alpha sort.
For a numeric sort:

'-------------------------------------------------------------------------------
Sub sortsheets()
'Re-Sort sheet names
' Thanks to McRitchie & Bill Manville
Dim iSheet As Integer
Dim iBefore As Integer

For iSheet = 1 To Worksheets.Count
For iBefore = 1 To iSheet - 1
If CInt(Sheets(iBefore).Name) > CInt(Sheets(iSheet).Name) Then
Sheets(iSheet).Move before:=Sheets(iBefore)
Exit For
End If
Next iBefore
Next iSheet
End Sub

 

[Chip Pearson]

You need to use a VBA procedure. See
www.cpearson.com/excel/sortws.htm for example code.


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