Type Info:
Name As String
Dim ProjDoc As ProjectDocument Set ProjDoc = Application.ActiveProject.ProjectDocument MsgBox ProjDoc.Name