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