Is it possible to sort Excel sheet tabs; i.e. alphabetically?

  • Thread starter Thread starter Darlene
  • Start date Start date
Yes,

I found the following code---->

Sub SortSheets()

Dim lCount As Long, lCounted As Long

Dim lShtLast As Long

Dim lReply As Long

lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _

& "To sort Worksheets descending select 'No'", vbYesNoCancel, "Ozgrid
Sheet Sort")

If lReply = vbCancel Then Exit Sub

lShtLast = Sheets.Count

If lReply = vbYes Then 'Sort ascending

For lCount = 1 To lShtLast

For lCount2 = lCount To lShtLast

If UCase(Sheets(lCount2).Name) < UCase(Sheets
(lCount).Name) Then

Sheets(lCount2).Move Before:=Sheets(lCount)

End If

Next lCount2

Next lCount

Else 'Sort descending

For lCount = 1 To lShtLast

For lCount2 = lCount To lShtLast

If UCase(Sheets(lCount2).Name) > UCase(Sheets
(lCount).Name) Then

Sheets(lCount2).Move Before:=Sheets(lCount)

End If

Next lCount2

Next lCount

End If
 
Hi,

Right click any sheet tab, view code and paste this in and run it

Sub Sortem()
LastSheet = Sheets.Count
For ws = 1 To LastSheet
For ws2 = ws To LastSheet
If UCase(Sheets(ws2).Name) < UCase(Sheets(ws).Name) Then
Sheets(ws2).Move Before:=Sheets(ws)
End If
Next ws2
Next ws
End Sub

Mike
 
Back
Top