performs a simple bubble sort to sort the worksheets in the workbook : Worksheets « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Worksheets

performs a simple bubble sort to sort the worksheets in the workbook

 
Sub AlphabetizeWorksheets()
    Dim bSorted As Boolean
    Dim nSheetsSorted As Integer
    Dim nSheets As Integer
    Dim n As Integer
    Dim wb As Workbook
    
    Set wb = ActiveWorkbook
    nSheets = wb.Worksheets.Count
    nSheetsSorted = 0

    Do While (nSheetsSorted < nSheets) And Not bSorted
        bSorted = True
        nSheetsSorted = nSheetsSorted + 1
        For n = 1 To nSheets - nSheetsSorted
            If StrComp(wb.Worksheets(n).name, wb.Worksheets(n + 1).name, vbTextCompare) > 0 Then
                wb.Worksheets(n + 1).Move _
                    before:=wb.Worksheets(n)
                bSorted = False
            End If
        Next
    Loop
End Sub








Related examples in the same category

1.Do... Loop Until Loops with Worksheets
2.Looping Through Worksheets in a Workbook
3.move the second worksheet to end of workbook
4.For...Next Loop with Worksheet
5.The Sheets Collection
6.Grouping Worksheets
7.Dynamic Arrays for worksheet name
8.Use for loop to loop through all worksheets
9.Sort all worksheets