Arrange the sheet name in ascending order

I have a file having 86 sheets with different name of each sheet.Now,I want to sort all 86 sheets in ascending order.

Here,I have taken an example of 4 sheets,namely,PAP,SPG,SPP and CND.Can we sort the sheets in an ascending order?

Required result is-CND,PAP,SPG and SPP.

Please refer the attach file

Try this code

Sub SortWorksheets()
Dim i&, j&
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If UCase$(Worksheets(j).Name) < UCase$(Worksheets(i).Name) Then
                Worksheets(j).Move Before:=Worksheets(i)
            End If
        Next j
    Next i
     Application.ScreenUpdating = True
End Sub