Max's formula give me 5 counts.

First, my apologies for missing the significance of your line:
... I should have a 4 Codes with dates ...
which inferred that the counts were to be for unique codes

A non-array alternative to try would be to put:

In C2: =IF(AND(ISNUMBER(B2),B2<0),A2,"")
In D2: = --(AND(C2<"",COUNTIF($C$2:C2,C2)=1))

Then select C2:D2 and fill down

Col D will return the count results that you seek

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----