This question gets asked every now and again:
Sub ArrangeSheetsInOrder()
Dim iCount As Integer
Application.ScreenUpdating = False
iCount = Sheets.Count
For i = 1 To iCount - 1
For j = i + 1 To iCount
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
End Sub

Regards,
Ryan--

Please drop the all caps.

Hard on the ears and difficult to read.

See Chip Pearson's site for VBA code to sort worksheets.

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

Gord Dibben  MS Excel MVP

RSJAAG,

One other thing, don't post your actual email address like you did.
Spammers and the like have "bots" that will scan newsgroups for email
addresses and then you will get hit with a bunch of spam.

disguise it like this...

RSJAAG AT COMCAST DOT NET

...or add words to it that need to be removed like this...

rsjaagREMOVE@comcastREMOVE.netREMOVE
rsjaagNOSPAM@comcastNOSPAM.netNOSPAM
rsjaagBUCKETOFSPAM@comcastBUCKETOFSPAM.netBUCKETOFSPAM

HTH,

Conan