Excel Drop down list, Multiple Selections

[ManUBlueJay]

I am trying to run a macro that would allow multiple selections in a excel data validation list.
I would have thought this code would work but it doesnt. It exits the sub before adding in the line with the comma.

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("J3:J10000")) 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 & ", " & Newvalue
      Else:
        Target.Value = Oldvalue
      End If
    End If
  End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub

 

[Georgiboy]

Seems to work for me however, if there are no cells with validation in the specified range then it does nothing.

I am guessing that the yellow cell below is the intended result:

Book1
	J
1
2
3
4	look
5	took
6	4, 7, 8
7	Hi
8	Ukraine for the win
Sheet1

Cells with Data Validation
Cell	Allow	Criteria
J6	List	1,2,3,4,5,6,7,8,9

 

[ManUBlueJay]

It was meant to do nothing if there are no validations, As I am making my target larger for growth
This would be my intended result but for me I get a runtime error on the Application.undo, and because the code exits on error nothing happens

 

[ManUBlueJay]

I have discovered because I have a Worksheet Selection change action on the same sheet it fails the application.undo.
When I remove the Worksheet Selection change action it works.
Is there any way they can co-exist or is their another way to accomplish what I am trying to do

 

[ManUBlueJay]

I solved it by moving the Application.EnableEvents = False to the first line of the code

 

[Georgiboy]

Sweet, thanks for the update. Glad you got it sorted.