Apologies, that was of course wrong, here’s the fixed code. However, when I click the Cancel button the execution is cancelled, but when I click the OK button the message box reappears and reappears and reappears…
If (Field = pjTaskOutlineLevel And ActiveCell.Task.OutlineLevel < NewVal) And _
(ActiveProject.Tasks(ActiveCell.Task.ID – 1).ResourceNames <> “”) Then
If MsgBox(“The preceeding task has resources assigned.”, vbOKCancel) = vbCancel Then
Info.Cancel = True
Else
OutlineIndent
End If
End If
