how can i re-sort multiple worksheets into alphabetical order

G

Guest

I have a barrowload of multiple worksheets, but now client wants them in a
different order, is there, to save time, any way that Excel can re-sort them
in Alphabetical order.
 
M

MikeSN

Public Sub SortSheets()

Dim currentUpdating As Boolean
currentUpdating = Application.ScreenUpdating

Application.ScreenUpdating = False

For Each xlSheet In ActiveWorkbook.Worksheets
For Each xlSheet2 In ActiveWorkbook.Worksheets
If LCase(xlSheet2.Name) < LCase(xlSheet.Name) Then
xlSheet2.Move before:=xlSheet
End If
Next xlSheet2
Next xlSheet

Application.ScreenUpdating = currentUpdating

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Open File menu sort alphabetical. 6
Re-ordering Worksheets 2
How to sort names in alphabetical ascending order? 7
Worksheets alphabetical? 1
worksheets in alphabetical order in office 2007 4
Sort multiple columns by alphabetical order 4
Pivot Table Sort Order 1
how to change a list into alphabetic order 1

Top