I have created a number of Excel S/sheets in one document - but would like to
alphabeticise them... is this possible?

"Steph" wrote:
I have created a number of Excel S/sheets in one document - but would like to
alphabeticise them... is this possible?

If you mean sort the worksheet by their names, try Chip Pearson's:
http://www.cpearson.com/excel/sortws.htm
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---

Previous post from Gord on a previous post from Chip:
Quick and dirty sort by name.

Sub sort_sheets()
'Mike H June 13th, 2007
Dim I As Integer, J As Integer

For I = 1 To Sheets.Count - 1
For J = I + 1 To Sheets.Count
If UCase(Sheets(I).Name) UCase(Sheets(J).Name) Then
Sheets(J).Move Befo=Sheets(I)
End If
Next J
Next I
End Sub

For more methods and flexibility see Chip pearson's site.

http://www.cpearson.com/excel/sortws.aspx


Gord Dibben MS Excel MVP


--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"Steph" wrote:

I have created a number of Excel S/sheets in one document - but would like to
alphabeticise them... is this possible?

Give this a shot: (In a standard module)

Sub SortWorksheets()
Dim N As Integer
Dim M As Integer
Dim FirstWSToSort As Integer
Dim LastWSToSort As Integer
Dim SortDescending As Boolean

SortDescending = False

If ActiveWindow.SelectedSheets.Count = 1 Then
FirstWSToSort = 1
LastWSToSort = Worksheets.Count
Else
With ActiveWindow.SelectedSheets
For N = 2 To .Count
If .Item(N - 1).Index < .Item(N).Index - 1 Then
MsgBox "You cannot sort non-adjacent sheets"
Exit Sub
End If
Next N
FirstWSToSort = .Item(1).Index
LastWSToSort = .Item(.Count).Index
End With
End If

For M = FirstWSToSort To LastWSToSort
For N = M To LastWSToSort
If SortDescending = True Then
If UCase(Worksheets(N).Name) UCase(Worksheets(M).Name) Then
Worksheets(N).Move Befo=Worksheets(M)
End If
Else
If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then
Worksheets(N).Move Befo=Worksheets(M)
End If
End If
Next N
Next M

End Sub

"Steph" wrote in message
...
I have created a number of Excel S/sheets in one document - but would like
to
alphabeticise them... is this possible?