I would like to make it a bit more userfriendly by prompting users and allowing them to accept this change, or not. I wrote the following code, but it gets stuck on the prompt, no matter which button I press the message box reappears. I am certainly missing some piece of information here. Thanks for any help.
If (Field = pjTaskOutlineLevel And ActiveCell.Task.OutlineLevel < NewVal) And _ (ActiveProject.Tasks(ActiveCell.Task.ID – 1).ResourceNames <> “”) Then If Response = MsgBox(“The preceeding task has resources assigned.”, vbOKCancel) = vbCancel Then Info.Cancel = True Else OutlineIndent End If End If