сортировка листов

[cheshiki1]

Макрос
Sub сортировка()
Dim i As Integer, J As Integer

For i = 1 To Sheets.Count - 1
For J = i + 1 To Sheets.Count
If UCase(Sheets(i).Name) > UCase(Sheets(J).Name) Then
Sheets(J).Move Before:=Sheets(i)
End If
Next J
Next i
End Sub
сортирует листы так 1,10,11...2,20,21.. ,а хотелось бы 1,2,3...10,11,..
Прошу учесть названия листов в книге кроме обычных присутствуют такие КМД1, КМД_1,КМД2.

[EducatedFool]

Сначала запустите такой макрос:

Sub ПечатьСпискаЛистов()
    For i = 1 To Sheets.Count
        Debug.Print Sheets(i).Name
    Next i
End Sub

и выложите в теме результаты его работы.
Потом на примере этого списка покажите, в каком порядке должны следовать листы после сортировки.

сортирует листы так 1,10,11...2,20,21.. ,а хотелось бы 1,2,3...10,11,..

Этого несложно добиться.
Если бы не

такие КМД1, КМД_1, КМД2.

В этом случае не совсем ясно, какой из листов должен быть первым - лист с именем "1" или лист с именем "КМД1".
Или, может быть, "КМД_1"?


Попробуйте ещё код из этой темы: http://www.programmersforum.ru/showthread.php?t=23398

Тема сортировки листов неоднократно обсуждалась на множестве форумов по Excel.
Воспользуйтесь поиском - найдёте с десяток различных способов сортировки листов.

[cheshiki1]

Макрос запустил ничего не произошло или что и где искать?
основная сортировка 1,2,3 а остальные не важно главное чтобы по порядку например КМД1,КМД2,...КМД_1,КМД_2..