If UCase(Right(Sheets(lCount2).Name, 4)) < UCase(Right(Sheets(lCount).Name, 4)) Then

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

lReply = MsgBox("To sort Worksheets ascending, select &#8216;Yes&#8217;. " _
& "To sort Worksheets descending select &#8216;No&#8217;", vbYesNoCancel, "Ozgrid Sheet Sort")
If lReply = vbCancel Then Exit Sub
lShtLast = Sheets.Count
    If lReply = vbYes Then 'Sort ascending
        For lCount = 1 To lShtLast
            For lCount2 = lCount To lShtLast
                If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
                    Sheets(lCount2).Move before:=Sheets(lCount)
                End If
            Next lCount2
        Next lCount
    Else: 'Sort descending
     For lCount = 1 To lShtLast
            For lCount2 = lCount To lShtLast
                If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then
                    Sheets(lCount2).Move before:=Sheets(lCount)
                End If
            Next lCount2
        Next lCount
    End If
End Sub