Sub SortTabs()<o:p></o:p>
Dim CheckStr1 As String, CheckStr2 As String<o:p></o:p>
Dim sh As Worksheet<o:p></o:p>
Dim SheetNames() As String<o:p></o:p>
Dim NoOfSheets As Long<o:p></o:p>
Dim c As Long, d As Long<o:p></o:p>
Dim Anyswaps As Boolean<o:p></o:p>
NoOfSheets = ThisWorkbook.Sheets.Count<o:p></o:p>
ReDim SheetNames(NoOfSheets)<o:p></o:p>
If NoOfSheets > 1 Then<o:p></o:p>
c = 1<o:p></o:p>
For Each sh In ThisWorkbook.Worksheets<o:p></o:p>
SheetNames(c) = sh.Name<o:p></o:p>
c = c + 1<o:p></o:p>
Next sh<o:p></o:p>
Do<o:p></o:p>
Anyswaps = False<o:p></o:p>
For c = 1 To NoOfSheets - 1<o:p></o:p>
If SheetNames(c) > SheetNames(c + 1) Then<o:p></o:p>
SheetNames(0) = SheetNames(c)<o:p></o:p>
SheetNames(c) = SheetNames(c + 1)<o:p></o:p>
SheetNames(c + 1) = SheetNames(0)<o:p></o:p>
Anyswaps = True<o:p></o:p>
End If<o:p></o:p>
Next c<o:p></o:p>
Loop Until Anyswaps = False<o:p></o:p>
For d = 1 To NoOfSheets<o:p></o:p>
For c = NoOfSheets To 2 Step -1<o:p></o:p>
Sheets(SheetNames(c)).Move after:=Sheets(SheetNames(c - 1))<o:p></o:p>
Next c<o:p></o:p>
Next d<o:p></o:p>
End If<o:p></o:p>
End Sub<o:p></o:p>