If Not Intersect(Target, rngDV) Is Nothing Then
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If oldVal <> "" Then
[COLOR=#ff0000][B] If newVal <> "" And newVal <> "Completed" Then Target.Value = oldVal & ", " & newVal[/B][/COLOR]
End If
If Not Intersect(Target, Range("B8:B16, D8:D16")) Is Nothing Then 'FirstWrap and sercondWrap, both Range("V3:V7")
UpdateDVs Intersect(rngDV, Range("B8:B16, D8:D16")), Range("AE3:AE7")
ElseIf Not Intersect(Target, Range("E8:E16")) Is Nothing Then 'Braiders Range("X3:X25")
UpdateDVs Intersect(rngDV, Range("E8:E16")), Range("X3:X25")
ElseIf Not Intersect(Target, Range("F8:F16")) Is Nothing Then 'Mylar Range("V3")
UpdateDVs Intersect(rngDV, Range("F8:F16")), Range("V3")
End If
[COLOR=#ff0000][B]If newVal = "Completed" Or newVal = "" Then[/B][/COLOR]
For Each stri In Split(oldVal, ", ")
For Each shp In ActiveSheet.Shapes
If shp.Name = stri Then shp.Fill.ForeColor.ObjectThemeColor = 2
Next
Next
End If
For Each shp In ActiveSheet.Shapes
If shp.Name = newVal Then shp.Fill.ForeColor.RGB = RGB(255, 0, 0)
Next
End If