Excel Target.column for Data Validation would like to target some cells within column

[IggyPop]

Hello All, hopefully you can help, I have visited many forums and found the below code that works, but I have tried tweaking for my specific needs and I am unable to:

Basically it is allowing me to use any data validation cells in column 2 as multi select cells with comma separation (i.e. select1, select2, select3) , problem is that I have a few data validation cells in column 2 that I only want as a single select.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
Dim strVal As String
Dim i As Long
Dim lCount As Long
Dim Ar As Variant
On Error Resume Next
Dim lType As Long
If Target.Count > 1 Then GoTo exitHandler
lType = Target.Validation.Type
If lType = 3 Then
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
'Select Case Target.Address
'Case Is = "$b$16", "$b$17","$b$24"
'If Target.Cells = "$b$17" Or "$b$18" Or "$f$4" Then
If Target.Column = 2 Then
If oldVal = "" Then
Else
If newVal = "" Then
Else
On Error Resume Next
Ar = Split(oldVal, ", ")
strVal = ""
For i = LBound(Ar) To UBound(Ar)
Debug.Print strVal
Debug.Print CStr(Ar(i))
If newVal = CStr(Ar(i)) Then
strVal = strVal
lCount = 1
Else
strVal = strVal & CStr(Ar(i)) & ", "
End If
Next i
If lCount > 0 Then
Target.Value = Left(strVal, Len(strVal) - 2)
Else
Target.Value = strVal & newVal
End If
End If
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub

 

[IggyPop]

is anyone able to assist?