OK -- I need to sort worksheets in

[qleader]

OK -- I need to sort worksheets in excel with a macro. Ihave about hundred worksheet in one workbook. When we add a new worksheet I need to then be sorted. They are numbered sheet with the expection of one called "master sheet" One last thing- the one called "master sheet" needs to stay at the beging of the numbered sheets.

This is what I came up with but it sorts the master sheet to end.
Dim Cnt%, A%, B%

Cnt = ActiveWorkbook.Worksheets.Count
For B = 1 To Cnt
For A = B To Cnt
If Worksheets(A).Name < Worksheets(B).Name Then
Worksheets(A).move Before:=Worksheets(B)
End If
Next A
Next B

Any ideas......

 

[JrClown]

[tt]Try this, rename

master sheet to
' master sheet[/tt]

&quot;The reward of one duty done is the power to fulfill another&quot;
J R C L W N
​

 

[hoki]

How about add a line after your code:

Worksheets(&quot;Master&quot.Move before:=Worksheets(1)

 

[Loomah]

Just beaten with the answer!!
However for anyone who wants to do this there is code (basically the same as above) and some other tips at:

http://www.cpearson.com/excel/sortws.htm