Sort Worksheet Alphabetically after first set of sheets.

[Fizzler]

Hello,

I searched the forums and got many of my answers but there is one that is eluding me. I want to be able to run a macro that will ignore the first 10 sheets and sort the remaining sheets alphabetically.

This works for sorting but it sorts all the sheets. How do I run it only on sheets after the 10th?

   Sub SortWorksheetsTabs()
Application.ScreenUpdating = False
Dim ShCount As Integer, i As Integer, j As Integer
ShCount = Sheets.Count

For i = 1 To ShCount - 1
    For j = i + 1 To ShCount
        If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
            Sheets(j).Move before:=Sheets(i)
        End If
    Next j
Next i

Application.ScreenUpdating = True
End Sub

Thank you very much.

 

[Fluff]

Hi & welcome to MrExcel.
How about

For i = 11 To ShCount - 1

 

[Fizzler]

Hi & welcome to MrExcel.
How about

For i = 11 To ShCount - 1

Thank worked perfectly. You made that look easy I was overthinking it big time.

 

[Fluff]

You're welcome & thanks for the feedback.