A slight modification to your formula in order to produce the numbers the OP
asked for originally...

B1: =COUNTIF($A$1:A1,A1)

...and copy down

Rick


"Bob Phillips" wrote in message
...
B1: =COUNTIF(A:A,A1)

and copy down

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"Snake Plissken" wrote in message
...
you dont need a macro in fact...
here is the situation:

header(A1) counter(B1)
a =IF(A2<A1;1;1+B1)
a copy formula seen above
etc