ActiveProject Property

Returns a Project object that represents the active project. Read-only.

Example

The following example adds the date and time to the Comments field in the Project Properties dialog box and then saves the project.

Sub SaveAndNoteTime()
    ActiveProject.ProjectNotes = ActiveProject.ProjectNotes & vbCrLf & "This project was last saved on " _
        & Date$ & " at " & Time$ & "."
    FileSave
End Sub

Applies to | Application Object

See Also | ActiveCell Property | ActivePane Property | ActiveSelection Property | ActiveWindow Property | Projects Property