Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E2]) Is Nothing Then
If UCase(Target) <> "V" Then
[E6].Validation.Delete
[E6] = 1
Else
With [E6].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$M$3:$M$5"
End With
End If
End If
End Sub