Try this

Sub sortem()
For a = 1 To Sheets.Count - 1
For b = a + 1 To Sheets.Count
If (Sheets(a).Name) (Sheets(b).Name) Then
Sheets(b).Move Befo=Sheets(a)
End If
Next b
Next a
End Sub

Mike

"Beep Beep" wrote:

I have a bunch of tabs and the name's are numbers. Any way to sort the tabs
with a macro.

Thanks
Frank