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


Gord Dibben MS Excel MVP


On Thu, 25 Sep 2008 06:32:07 -0700, Dgadgetk
wrote:

if able, how do you sort Tabs in excel (alpha-numeric) ??
...
I have multiple tabs/Worksheets created, each is named after a person.
Periodically, new worksheets are added for new names. I am trying to auto
sort the tabs/worksheets by tab name; alpha=numerically. Can anyone say if or
how this can be done? I have Excel 2003, SP2. Thankx