From: MikeSN on
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

"Niek Otten" wrote:

> http://www.cpearson.com/excel/sortws.htm
>
> --
>
> Kind Regards,
>
> Niek Otten
>
> Microsoft MVP - Excel
>
> "Stuart" <Stuart(a)discussions.microsoft.com> wrote in message
> news:A7FD9545-A08D-40C0-AD00-0FF22ED6F0DE(a)microsoft.com...
> >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.
>
>
>