[mso] VB to bring Table of Contents to front of Workbook, Thanks

I have this code to sort the workbooks.  I would like to add code:
IF a workbook contains a "Table of Contents" then bring it to the front (after 
it is sorted) otherwise just sort.

Thanks and have a happy and safe holiday season.

Don Smith
 

Sub Sort_Active_Book()
       Dim i As Integer, j As Integer
       For i = 1 To Sheets.Count
           For j = 1 To Sheets.Count - 1
               If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
                   Sheets(j).Move After:=Sheets(j + 1)
               End If
           Next j
       Next i
   End Sub
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: