Sub Example_Block()
    ' Этот пример находит название блока, связанного с листом.
    
    Dim xBlock As AcadBlock
    Set xBlock = ThisDrawing.ActiveLayout.Block
    
    MsgBox "Активный лист соответствует блоку: " & xBlock.name
End Sub