Window.Caption Property (Project)
Gets or sets the text in the title bar of a project window. Read/write String.
expression A variable that represents a Window object.
When the active window is maximized, the title bar displays the caption for both the main and active windows, separating the captions with a hyphen. For example, if the caption for the main window is "Microsoft Project" and the caption for the active window is "Project1.mpp", the title bar displays "Project1.mpp - Microsoft Project" when the active window is maximized.
If you set the Caption property to Empty, the title bar displays the default caption. The default caption for the main window is "Microsoft Project".
In a project with one window, the default caption for the window is the file name of the project. In a project that has multiple windows open, the default caption for each window is name: n, where name is the file name of the project and n is a unique number for the window. For example, if the second window of the project "Project1" is active, the default title bar displays "Project1.mpp:2 - Microsoft Project"
The following example prompts the user to change the caption for the active window.
Sub ChangeWindowCaption() Dim Entry As String ' Caption entered by user ' Prompt user for a new caption. Entry = InputBox$("Enter a new caption for the active window (enter 'reset' to set the caption to its default).") ' If user chooses the Cancel button, exit Sub procedure. If Entry = Empty Then Exit Sub ' Set or reset the caption. If Entry = "reset" Then ActiveWindow.Caption = Empty Else ActiveWindow.Caption = Entry End If End Sub