Table of Contents for worksheets

Does anyone know how to add a "short" Table of Contents code page onto my existing sort Macro.

My code for sorting worksheets is:

Dim cnt As Integer
Dim n As Integer
Dim m As Integer

On Error GoTo endofmacro
cnt = ActiveWorkbook.Worksheets.Count
For m = 1 To cnt
For n = m To cnt
If UCase(Worksheets(n).Name) < UCase(Worksheets(m).Name) Then
Worksheets(n).Move before:=Worksheets(m)
End If
Next n
Next m
endofmacro:


End Sub

If possible a macro code that doesn't go into a printpreview mode that needs manual intervention to close it.

Thanking you in advance,

Debs