Something like this...

MsgBox Application.CountIf(Sheets("Sheet1").Range("A:A"), "<0") + _
Application.CountIf(Sheets("Sheet2").Range("B:B"), "<0")

or this...

MsgBox Application.CountIf(Sheets("Sheet1").Range("A:A"), "<0") & vbcrlf
& _
Application.CountIf(Sheets("Sheet2").Range("B:B"), "<0")

--
HTH...

Jim Thomlinson


"Aaron" wrote:

What if I wanted to count two different tabs and report both results in one
msgbox?

"Bob Phillips" wrote:

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