Sort Worksheet Tabs

I found the following "sort worksheet tabs" code by searching through the threads.

Sub SortSheets()
Dim lCount As Long, lCounted As Long
Dim lShtLast As Long
Dim lReply As Long

lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _
& "To sort Worksheets descending select 'No'", vbYesNoCancel, "Ozgrid Sheet Sort")
If lReply = vbCancel Then Exit Sub

lShtLast = Sheets.Count

This code works fine but I need to adjust it a little. I have over 70 worksheets that will need to be sorted. At the same time, there are about 6 worksheets that I dont want to sort and want to keep right infront all the time.