worksheet tabs
 

Hi

In the 2003 excel-- Is there a way to have the worksheet tabs automatically
go in alphabetical order-- or do you have to do in manually?
--
Thank-you!
Ruth

worksheet tabs
 

Ruth,

Use this code:

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



"Ruth" wrote:

Hi

In the 2003 excel-- Is there a way to have the worksheet tabs automatically
go in alphabetical order-- or do you have to do in manually?
--
Thank-you!
Ruth

worksheet tabs
 

You can do it with code. See www.cpearson.com/excel/sortws.aspx

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]



On Wed, 6 Jan 2010 07:08:01 -0800, Ruth
wrote:

Hi

In the 2003 excel-- Is there a way to have the worksheet tabs automatically
go in alphabetical order-- or do you have to do in manually?