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