Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([E3:N3], Target) Is Nothing And Target.Count = 1 Then
For Each c In [a3:a6]
p = 0
For Each k In [E3:N3]
If k = c Then p = p + 1
Next k
For n = 1 To c.Offset(0, 1) - p
temp = temp & c & ","
Next n
Next c
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
End If
End Sub