Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean) If CCtrl.Range.Text = "No" Then CCtrl.Range.Rows(1).Delete End Sub