Type Info:
EditorName As String
Dim ProjFile As ProjectFile Set ProjFile = Application.ActiveProjectFile MsgBox ProjFile.EditorName