BRILLIANT!!! Worked great! Thanks.

--
Craig


"Mike H" wrote:

Graig,

Try this

Sub Sortem()
LastSheet = Sheets.Count
On Error Resume Next
For ws = 1 To LastSheet
For ws2 = ws To LastSheet
If CLng(Sheets(ws2).Name) < CLng(Sheets(ws).Name) Then
Sheets(ws2).Move Befo=Sheets(ws)
End If
Next ws2
Next ws
End Sub


Mike

"Craig" wrote:

I'm using Excel 2003.

I've searched this site and have found sorting tips for worksheet tabs
(mainly Chip Pearson's VBA code).

However, this ONLY seems to work by assuming the named tabs are ALPHA. What
if all 100 of my tabs are numbers???

EXAMPLE:

If I have the following tabs labeled: 1, 12, 21, 2000, 350, 3100, 55, 520,
1120, 2500

..then after running the code I will get the following INCORRECT result:

1, 1120, 12, 2000, 21, 2500, 3100, 350, 520, 55

Is there a way around this? How do I do a NUMERIC sort??

Thanks for any and all help.


--
Craig