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