David and Wilson, thanks for the macros! I just tested both of them and they work! On my email, the "Then" statement on David's macro was hard returned to another line. I had to put them on the same line so I wouldn't get a compile error. Ie. **************************************************************************** *********************** If UCase(Worksheets(N).Name) > UCase(Worksheets(M).Name) Then Worksheets(N).Move Before:=Worksheets(M) End If Else If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then **************************************************************************** *********************** Had to edit to: **************************************************************************** *********************** If UCase(Worksheets(N).Name) > UCase(Worksheets(M).Name)Then Worksheets(N).Move Before:=Worksheets(M) End If Else If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name)Then **************************************************************************** *********************** -----Original Message----- I found the following code at: http://www.cpearson.com/excel/sortws.htm ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx?Subject=unsubscribe Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles *************************************************************