excel工作簿的工作表如何按名称排序

excel工作簿的工作表如何按名称排
Sub test()
    Dim s As Worksheet
    Dim n() As String
    t = ThisWorkbook.Sheets.Count
    ReDim n(1 To t)
    For i = 1 To t
        n(i) = Sheets(i).Name
    Next
    For i = 1 To t - 1
        For j = i + 1 To t
            If n(i) > n(j) Then '如果要降序将>改为<
                a = n(i)
                n(i) = n(j)
                n(j) = a
            End If
        Next
    Next
    For i = 1 To t
        Sheets(n(i)).Move Sheets(i)
    Next
End Sub