ALPHABETIZE WORKSHEETS AUTOMATICALLY

  • Thread starter Thread starter RSJAAG
  • Start date Start date
R

RSJAAG

I'VE CREATED A WORKBOOK WITH MANY WORKSHEETS. I'M WONDERING IF THERE'S A WAY
TO ALPHABETIZE THE SHEETS AUTOMATICALLY. HELP!!! MY EMAIL IS
(e-mail address removed)
 
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--
 
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...

(e-mail address removed)
(e-mail address removed)
(e-mail address removed)

HTH,

Conan
 
Thank you so much. I greatly appreciate your help! I'm learning as I go and
had an intro to macros last year. This helped. I was able to run this.
--rsjaag
 
(e-mail address removed)
(e-mail address removed)
(e-mail address removed)


If that doesn't work I guess I'm screwed@! Nice tip. tis why I just joined the forum.

No more spam too,

JC
 
Back
Top