excel 工作簿的工作表排序

Sub sort()
Dim i%
Dim j%
If Worksheets.Count = 1 Then End
For j = 1 To Worksheets.Count - 1
    For i = 1 To Worksheets.Count - 1
        If IsNumeric(Sheets(i).Name) And IsNumeric(Sheets(i + 1).Name) Then
            If --Sheets(i).Name > --Sheets(i + 1).Name Then Sheets(i + 1).Move Before:=Sheets(i)
        Else
            If Sheets(i).Name > Sheets(i + 1).Name Then Sheets(i + 1).Move Before:=Sheets(i)
        End If
    Next i
Next j
End Sub