Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D8:D21]) Is Nothing Or Target.Count > 1 Then Exit Sub
With Range("E" & Target.Row)
If Target = "contact" Then
.Select
.Validation.InCellDropdown = True
SendKeys "%{DOWN}"
Else
.Validation.InCellDropdown = False
End If
End With
End Sub