Multiple Select Drop in a Single Cell

[scoobydoo]

Hello! I'm attempting to use a drop down list for requests to update a row of data. The drop down list options are in Column A2:A8 in my sample data. I would like to make the multiple select drop down in Column C. There may be more rows of data at any given time. I'm trying to select all types of updates that are needed for each row. I only entered $C$2 in the VBA Code. However, I need it to include Column C. I used VBA Code below but nothing happens when I test it. I would appreciate help to correct this code that I found in a tutorial.

Private Sub Worksheet_Change(ByVal Target As Range)

' Initializing variables
Dim oldVal As String
Dim newVal As String
' Checking for changes in the drop down lists

Application.EnableEvents = True

If Target.Address = "$C$2" Then

If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
Exit Sub
' Adding the multiple selected items to the list
Else
If Target.Value = "" Then
Exit Sub

Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
If oldVal = "" Then
Target.Value = newVal
Else
If InStr(oldVal, newVal) = 0 Then
Target.Value = oldVal & ", " & newVal '& vbNewLine &
Else
Target.Value = oldVal
End If
End If
End If
End If
End If

Application.EnableEvents = True

End Sub

 

[scoobydoo]

I was able to revise the code you sent initially, adding the Target.Row > 3 to make it work. I really appreciate all of your help!

I failed to mention that the file format changed. The multiple selection data field moved to Cell D4 (Column Heading in D3). Please see image below. Please see the final code used below.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String, Newvalue As String
Application.EnableEvents = False
On Error GoTo Exitsub
' Check if the change is in column C and row > 3

If Target.Column = 4 And Target.Row > 3 Then
If Not Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then

If Target.Value <> "" Then

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
End If

Exitsub:
Application.EnableEvents = True
End Sub
Sub Multiple_Drop_Down_Selection()

End Sub