Sort Worksheet Tabs Alphabetically

[SKFireworks]

I have documents with many tabs inside the worksheet and I would like to have the option to sort these tabs alphabetically. I have searched and tried adding the following module, but get an "Compile Error Syntex Error" I have the orriginal Document and could start over if needed. Any Help in this is appreciated.

After the Error Pop Up, I get another screen with the "Sub SortWorksheets()" highlighted in Yellow.

Below is the Module I am Using:

Sub SortWorksheets()


‘ sort worksheets in a workbook in ascending order


Dim sCount As Integer, i As Integer, j As Integer


Application.ScreenUpdating = False


sCount = Worksheets.Count


If sCount = 1 Then Exit Sub


For i = 1 To sCount – 1


For j = i + 1 To sCount


If Worksheets(j).Name < Worksheets(i).Name Then


Worksheets(j).Move Before:=Worksheets(i)


End If

 

[SKFireworks]

Sorry - This is the Whole Formula - The previous post was cut off.

Sub SortWorksheets()


‘ sort worksheets in a workbook in ascending order


Dim sCount As Integer, i As Integer, j As Integer


Application.ScreenUpdating = False


sCount = Worksheets.Count


If sCount = 1 Then Exit Sub


For i = 1 To sCount – 1


For j = i + 1 To sCount


If Worksheets(j).Name < Worksheets(i).Name Then


Worksheets(j).Move Before:=Worksheets(i)


End If


Next j


Next i


End Sub

 

[Fluff]

This line

For i = 1 To sCount – 1

has an N dash instead of a minus sign.
Try deleting it & replacing it with a proper - sign.

 

[SKFireworks]

This line

For i = 1 To sCount – 1

has an N dash instead of a minus sign.
Try deleting it & replacing it with a proper - sign.

Thank You - Additionally the error came up again and the following text is in RED on the equation:

‘ sort worksheets in a workbook in ascending order

Do you have any additional Advise?


Sub SortWorksheets()


‘ sort worksheets in a workbook in ascending order


Dim sCount As Integer, i As Integer, j As Integer


Application.ScreenUpdating = False


sCount = Worksheets.Count


If sCount = 1 Then Exit Sub


For i = 1 To sCount - 1


For j = i + 1 To sCount


If Worksheets(j).Name < Worksheets(i).Name Then


Worksheets(j).Move Before:=Worksheets(i)


End If


Next j


Next i


End Sub

 

[Fluff]

Missed that, you have the wrong type of quote/apostrophe it should be a '

 

[SKFireworks]

Missed that, you have the wrong type of quote/apostrophe it should be a '

That did it - Perfect. Thank You. Works Perfectly

 

[Fluff]

Glad to help & thanks for the feedback