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

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 Befo=Sheets(i)
End If
Next j
Next i
End Sub


Regards,
Ryan--


--
RyGuy


"RSJAAG" wrote:

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

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

On Thu, 7 Feb 2008 10:34:00 -0800, RSJAAG
wrote:

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

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...

EMOVE
OSPAM
UCKETOFSPAM

HTH,

Conan





"RSJAAG" wrote in message
...
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

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

"ryguy7272" wrote:

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 Befo=Sheets(i)
End If
Next j
Next i
End Sub


Regards,
Ryan--


--
RyGuy


"RSJAAG" wrote:

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

EMOVE
OSPAM
UCKETOFSPAM


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

No more spam too,

JC

On Thursday, February 07, 2008 1:34 PM RSJAA wrote:

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



On Thursday, February 07, 2008 2:44 PM ryguy727 wrote:

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 Befo=Sheets(i)
End If
Next j
Next i
End Sub


Regards,
Ryan--


--
RyGuy


"RSJAAG" wrote:


On Thursday, February 07, 2008 2:49 PM Gord Dibben wrote:

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

On Thu, 7 Feb 2008 10:34:00 -0800, RSJAAG
wrote:


On Thursday, February 07, 2008 3:11 PM Conan Kelly wrote:

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...

EMOVE
OSPAM
UCKETOFSPAM

HTH,

Conan





"RSJAAG" wrote in message
...


On Thursday, February 07, 2008 4:28 PM RSJAA wrote:

Thank you so much. I greatly appreciate your help! I am learning as I go and
had an intro to macros last year. This helped. I was able to run this.
--rsjaag

"ryguy7272" wrote: