Tab Sorting

[BrWolv]

Hi,
Would anyone be able to provide me the code to auto sort my Worksheet (Tabs) in Alpha. order? I expect this needs a bit of VBA to accomplish, however, if there is an easier way, pleas advise.

Thanks!!

 

[JackDanIce]

You should be able to adapt the code from this posting:
http://www.mrexcel.com/forum/showthread.php?t=555396

 

[Armando Montes]

Try this:

Sub SortABC()
Dim i As Integer, j As Integer, x As Integer
x = Sheets.Count
For i = 1 To x - 1
    For j = i + 1 To x
        If Sheets(j).Name < Sheets(i).Name Then
        Sheets(j).Move before:=Sheets(i)
        End If
    Next
Next
Sheets(1).Select
End Sub

 

[Greg Truby]

If you're doing this as part of a project then yes, you should be able to find all sorts of code floating around here that sorts sheets.

If it's just for you then you might just download ASAP utilities (if your corp IT dept. will allow it). All sorts of nifty tools in that add-in.

 

[BrWolv]

Armando's worked perfectly, Thanks!!

 

[BrWolv]

Any chance you could tell me the code to add an Input message to cell A1 on all worksheets in my book, I have over 200 of them, so automation would be wonderful!!

thanks again

 

[JackDanIce]

This is a new question and as per board rules, really should be asked in a new posting. You've not made it clear what you mean by "input message" so this may not be what you want:

Sub NameSheets()

Application.ScreenUpdating = False

For i = 1 to Worksheets.Count
  Sheets(i).Range("A1") = "This is sheet number: " & i
Next i

Sheets(1).Select

Application.ScreenUpdating = True

End Sub

 

[BrWolv]

Sorry, Noobie!!!