Чтобы разрешить множественный выбор в раскрывающемся списке в Excel

Question

Я написал код VBA для Excel для выбора нескольких элементов. Он выбирает несколько предметов и не имеет повторений. В настоящее время, когда я выбираю элемент, он удаляет все элементы. Как изменить код, чтобы он удалял только выбранный код?

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Oldvalue As String Dim Newvalue As String
   Application.EnableEvents = True On Error GoTo Exitsub If
   Target.Column = 9 Or Target.Column = 18 Then

     If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
       GoTo Exitsub   Else: If Target.Value = "" Then GoTo Exitsub Else
       Application.EnableEvents = False
       Newvalue = Target.Value
       Application.Undo
       Oldvalue = Target.Value
         If Oldvalue = "" Then
           Target.Value = Newvalue
         Else
           If InStr(1, Oldvalue, Newvalue) = 0 Then
               Target.Value = Oldvalue & Chr(10) & Newvalue
         Else:
           Target.Value = Replace(oldVal, newVal & vbLf, "")
         End If
       End If   
     End If 
  End If 
  Application.EnableEvents = True Exitsub: 
  Application.EnableEvents = True 
End Sub