Sub Example_Layouts()
    ' Этот пример обратится к коллекции Layouts текущего рисунка
    ' и перечислит основную информацию о Layouts в рисунке.

    Dim Layouts As AcadLayouts, Layout As ACADLayout
    Dim msg As String
    
    ' Получите коллекцию листов от объекта документа
    Set Layouts = ThisDrawing.Layouts
    
    msg = vbCrLf & vbCrLf
    
    ' Получите названия каждого листа в этом рисунке
    For Each Layout In Layouts
        msg = msg & Layout.name & vbCrLf
    Next
    
    ' Покажите список доступных листов
    MsgBox "Есть " & Layouts.count & " листов в " & _
            ThisDrawing.WindowTitle & ":" & msg
End Sub