ActiveProject Example

Sub Example_ActiveProject()

    ' This example returns the name of the ActivProject.

    Dim activeProj As AeccProject

    Set activeProj = AeccApplication.ActiveProject

    MsgBox "The ActiveProject is: " & activeProj.Name, _

    vbInformation, "ActiveProject Example"

End Sub