Is that in the 'Sale' sheet code module ? and also, change this line

If Target.Address = "sale!$P$2" Then

to this

If Target.Address = "$P$2" Then

--
Regards,

Juan Pablo González

"Choice" wrote in message
...
Still not working, this is exactly what i have in there. when i go to
Sale!P2...type in a number nothing happens

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ans
If Target.Address = "sale!$P$2" Then
If WorksheetFunction.CountIf(Range("Tracking!C4:C100" ),
Range("Sale!P2")) 0 Then

ans = MsgBox("Continue", vbYesNo)
If ans = vbYes Then Application.Run (SortTracker)
End If
End If

End Sub

Also, save and close your workbook to get event code to activat

----- Juan Pablo Gonzalez wrote: ----

Is that in the 'Sale' sheet code module ? and also, change this lin

If Target.Address = "sale!$P$2" The

to thi

If Target.Address = "$P$2" The

--
Regards

Juan Pablo Gonzále

"Choice" wrote in messag
..
Still not working, this is exactly what i have in there. when i go t
Sale!P2...type in a number nothing happen
Private Sub Worksheet_Change(ByVal Target As Range
Dim an
If Target.Address = "sale!$P$2" The
If WorksheetFunction.CountIf(Range("Tracking!C4:C100" )
Range("Sale!P2")) 0 The
ans = MsgBox("Continue", vbYesNo
If ans = vbYes Then Application.Run (SortTracker
End I
End I
End Su