code doesnt work
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
|