This worked great!! Thank you for making this so easy! Some of the other
posts were difficult to understand!!

"Mike H" wrote:

Hi,

Right click any of your sheet tabs, view code and pastes this in and run it

Sub Sortem()
Dim x As Long, y As Long
For x = 1 To Worksheets.Count
For y = x To Worksheets.Count
If UCase(Sheets(y).Name) < UCase(Sheets(x).Name) Then
Sheets(y).Move Befo=Sheets(x)
End If
Next y
Next x
End Sub


Mike

"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