Arranging worksheets in alphanumeric ascending order

I am trying to arrange my sheets in alphabetical order.. I tried this code.. but it doesn't arrange sheets correctly

Dim sCount As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False
sCount = Worksheets.Count
If sCount = 1 Then Exit Sub
For i = 1 To sCount - 1
For j = i + 1 To sCount
If Worksheets(j).Name > Worksheets(i).Name Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i

(maybe sheets("1") doesn't mean sheets(1))..

Hello ahsanzafar.

Try with the '<' (not '>') in the 'If' command.

Doesn't work

It's work to me.
If you want please to give the names of the sheets.

PS: Anyway, you are right: 'sheets("1") doesn't mean sheets(1)'. All numbers, alphabetically precede the ". eg: Alphabetical first sorted 14, and followed by "13

It work... thanx.. u saved my butt

Solved... thanx