[VBA] Unable to sort tabs of selected sheets

[smallxyz]

Sub SortSelectedWorksheets()
    '---------------------
    MTxt = MsgBox("- Sort Selected Worksheet(s) -" & vbNewLine & "---------------------" & vbNewLine & _
        "Yes : Ascendingly" & vbNewLine & _
        "No  : Descendingly", vbYesNoCancel)
    '---------------------
    SheetCount = ActiveWindow.SelectedSheets.Count
    '---------------------
    With ActiveWindow
        Select Case (MTxt)
            ' ________________ [ sort ascendingly ] ________________
            Case (vbYes):
                For i = 1 To SheetCount - 1
                    For j = i + 1 To SheetCount
                        If (.SelectedSheets(j).Name < .SelectedSheets(i).Name) Then
                            .SelectedSheets(j).Move before:=.SelectedSheets(i)
                        End If
                    Next
                Next
                
                ' ________________ [ sort descendingly ] ________________
            Case (vbNo):
                For i = 1 To SheetCount - 1
                    For j = i + 1 To SheetCount
                        If (.SelectedSheets(j).Name > .SelectedSheets(i).Name) Then
                            .SelectedSheets(j).Move before:=.SelectedSheets(i)
                        End If
                    Next
                Next
        End Select
        '---------------------
    End With
End Sub

I got an error for the above in sorting 5 selected worksheets.

But I am just unsure which part goes wrong.

Any hint?

Thanks a lot!

 

[Fluff]

How about

    sheetcount = ActiveWindow.SelectedSheets.Count
    ReDim Shts(1 To sheetcount)
    For i = 1 To sheetcount
      Shts(i) = ActiveWindow.SelectedSheets(i).Name
    Next i
   
    '---------------------
        Select Case (MTxt)
            ' ________________ [ sort ascendingly ] ________________
            Case (vbYes):
                For i = 1 To UBound(Shts) - 1
                    For j = i + 1 To UBound(Shts)
                        If Shts(j) < Shts(i) Then
                            Sheets(Shts(j)).Move before:=Sheets(Shts(i))
                        End If
                    Next
                Next
                
                ' ________________ [ sort descendingly ] ________________
            Case (vbNo):

As soon as a sheet is moved it becomes the active sheet, at which only have one active sheet, so your code fails

 

[smallxyz]

Thanks Fluff!
Problem solved.

 

[Fluff]

Glad to help & thanks for the feedback