: . : Sub ModifyProject_Early() Dim pjApp As MSProject.Application Set pjApp = New MSProject.Application pjApp.Visible = True pjApp.FileOpen "Clocks.mpp" pjApp.ActiveProject.Tasks.Add "Wind clocks" pjApp.FileSave pjApp.FileClose pjApp.Quit End Sub references . .