Проверка данных Excel с множественным выбором и свободным текстом

Question

Я создал список проверки данных и добавил код VB (ниже), чтобы пользователь мог выбрать более одного варианта в списке. Пользователь может выбрать из списка или ввести данные (если ни один из вариантов в списке не подходит). Но если пользователь выбирает из списка и вводит новые данные, выбор повторяется.

Например, список содержит следующие варианты: A, B, C, D, E. Пользователь должен выбрать A, B и Z, поэтому он выбирает A и B и вводит Z, но тогда это выглядит так: A, B , Z, A, B

If Intersect(Target, rngDV) Is Nothing Then
   'do nothing
Else
  Application.EnableEvents = False
  newVal = Target.Value
  Application.Undo
  oldVal = Target.Value
  Target.Value = newVal

  If Target.Column = 7 Or Target.Column = 14 Then
    If oldVal = "" Then
      'do nothing

    Else
      If newVal = "" Then
      'do nothing

    Else
      Target.Value = oldVal _
        & ", " & newVal
      End If
    End If
  End If
End If

exitHandler:
  Application.EnableEvents = True
End Sub

Помогите?