Project.Application.ActiveProject.md

title	keywords	f1_keywords	ms.service	api_name	ms.assetid	ms.date	ms.localizationpriority
Application.ActiveProject property (Project)	vbapj.chm131377	vbapj.chm131377	project-server	Project.Application.ActiveProject	07844166-ca9b-15eb-a5e2-6f00a7c0a030	06/08/2017	medium

Application.ActiveProject property (Project)

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

Syntax

expression. ActiveProject

expression A variable that represents an Application object.

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

[!includeSupport and feedback]