[_Vlad_]

Здравствуйте!
Есть код Visual Basic, который перезаписывает название листов и последовательно нумерует.
Но проблема в том, что берет он листы в алфавитном порядке, а нужно чтобы было в порядке следования в Autocad.
Нужно как-то отсортировать по свойству TabOrder, но мне знаний не хватает.

Код:

[Выделить все]

Public Sub RenameLayouts()
    Dim colLayouts As AcadLayouts
    Dim objLayout As AcadLayout
    Dim intCount As Integer

    Set colLayouts = ThisDrawing.Layouts
    intCount = 1

    ' Rename the layouts in order
    For Each objLayout In colLayouts
        If objLayout.Name <> "Model" Then
            objLayout.Name = "Layout " & intCount
            intCount = intCount + 1
        End If
    Next objLayout
End Sub

[Автон]

Код:

[Выделить все]

For i = 1 To ThisDrawing.Layouts.Count - 1
 For Each objLayout In colLayouts
 	If objLayout.TabOrder = i Then 
       	    objLayout.Name = "Layout " & intCount
            intCount = intCount + 1
	End If   
    Next objLayout
Next i

Самое банальное

[_Vlad_]

Спасибо!