How do I sort worksheets in excel? i.e. Order them by date

N

Nick

How do I sort worksheets in excel? i.e. if i had multiple worksheets in a
workbook each containing a date, how could i sort the worksheets into date
order?
 
G

Gary L Brown

'/=================================================/
Sub WkshtSort_Ascending()
Dim i As Integer, x As Integer
Dim iWksheetCount As Integer

iWksheetCount = Application.ActiveWorkbook.Worksheets.Count

For i = 1 To iWksheetCount
For x = i To iWksheetCount
If UCase(Worksheets(x).Name) < _
UCase(Worksheets(i).Name) Then
Worksheets(x).Move Before:=Worksheets(i)
End If
Next x
Next i

End Sub
'/=================================================/
Sub WkshtSort_Descending()
Dim i As Integer, x As Integer
Dim iWksheetCount As Integer

iWksheetCount = Application.ActiveWorkbook.Worksheets.Count

For i = 1 To iWksheetCount
For x = i To iWksheetCount
If UCase(Worksheets(x).Name) > _
UCase(Worksheets(i).Name) Then
Worksheets(x).Move Before:=Worksheets(i)
End If
Next x
Next i

End Sub
'/=================================================/

HTH,
 
Top