ActiveDocument property example

Sub ActiveDocProp_Example()
'This example shows how to return the name of the active document.
    Dim activeDoc As AcadDocument
    Set activeDoc = ThisDrawing.Application.ActiveDocument
    MsgBox "The active document is: " & activeDoc.Name, vbInformation, "ActiveDocument Example "
End Sub