Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Select Case ContentControl.Title
  Case "ok to call Y-N"
    If ContentControl.ShowingPlaceholderText Then Cancel = True
End Select
End Sub