Sort Worksheet Tabs - Ascending or Descending Order

This macro will sort all of the worksheets in the current workbook. It can sort in ascending or descending order. This will work to sort by number and or also alphabetically. This type of sort is conducted through a bubble sort type.

This is ideal if you work with a large number of tabs or wroksheets in excel documents and you need to put them in order; this is especially helpful if you have to import or receive often messy workbooks or excel files.

Where to install the macro:  Module

Sort Worksheet Tabs - Ascending or Descending Order

Sub Sort_Worksheets()
 Dim i As Integer
 Dim j As Integer
 Dim iAnswer As VbMsgBoxResult

    iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) _
      & "Clicking No will sort in Descending Order", _
      vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")
    For i = 1 To Sheets.Count
       For j = 1 To Sheets.Count - 1

          If iAnswer = vbYes Then
             If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
                Sheets(j).Move After:=Sheets(j + 1)
             End If

          ElseIf iAnswer = vbNo Then
             If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
                Sheets(j).Move After:=Sheets(j + 1)

             End If
          End If

       Next j
    Next i

 End Sub

---