Private Sub App_ProjectBeforeSave(ByVal pj As Project, ByVal SaveAsUi As Boolean, Cancel As Boolean) If pj.CurrentView = "Publish Project View" Then 'pj.Tasks.Item(1).Name = "Test View level " 'pj.ProjectStart = Now() 'pj.StatusDate = Now() 'MsgBox ("Inside view published") 'Else Dim x As String 'x = "XYZ" x = ActiveProject.ProjectSummaryTask.GetField(FieldNameToFieldConstant("- Groups", pjTask)) If x = "" Then 'confirm = MsgBox("Please go to Menu-->Project-->Project Information-->select your 'Group'", vbYesNo) confirm = MsgBox("You did not select Group,do you want to select it", vbYesNo) If confirm = 6 Then Cancel = True MsgBox ("Please go to Menu-->Project-->Project Information-->select your ' Group'") Call ActiveProject.ProjectSummaryTask.SetField(FieldNameToFieldConstant(" - Groups", p...