Sub Example_StyleSheet()
    'Этот пример находит имя таблицы стилей для активного листа
    
    Dim styleSheetName As String
    styleSheetName = ThisDrawing.ActiveLayout.StyleSheet
    
    If styleSheetName = "" Then
        MsgBox "Нет таблицы стилей для активного листа. "
    Else
        MsgBox "Таблица стилей для активного листа: " & styleSheetName
    End If
End Sub