Msgbox Application.COUNTIF(Range(A:A),"<0")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Aaron" wrote in message
...
I am looking for code that would count all the negative numbers in a
column
and msgbox the results.

Thanks,
Aaron