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
