i have something similar. mine is in c2, this may work

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Not Intersect(Target, Range("C2")) Is Nothing Then
Call Threshold

Else
'Exit Sub

End If
End If
End Sub

--


Gary


"ivory_kitten" wrote in message
...
if a user selects a value from a data validation list the VBA code is not
executing, how do i fix this?