VBA code for Multiple selections in dropdown list

[springran]

Hi there
Please help

I have the below VBA code for miltiple selections drom a dropdown list. I have an issue with this VBA I can select multiple item, but the code can not deselect items if I have select wrong in the first place. For example if I select the wrong from the list if I want to correct it.TheVBA code can't do it.

Can anyone check my code and help me to add the missing part ? Thank you

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Not Intersect(Target, Range("A2")) Is Nothing 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 & vbNewLine & Newvalue
Else:
Target.Value = Oldvalue
End If
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub

 

[Artik]

See here.

Artik