That reports zero if none of the cells have zero, because the sum will still
be zero.

--
HTH

Bob Phillips

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

"Nigel" wrote in message
...
Sub zerocheck()
Dim testRange As Range, testRow As Long
testRow = 2
With ActiveSheet
Set testRange = ActiveSheet.Range(.Cells(testRow, "C"),
..Cells(testRow,
"K"))
End With

If Application.WorksheetFunction.Sum(testRange) = 0 Then
MsgBox "Zero!"
Else
MsgBox "Non-Zero"
End If

End Sub

--
Cheers
Nigel



"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
hit enter too fast. i was thinking of using application.sum. does this
make sense?

--


Gary


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
what's the best way to test a row, columns c through k to see if all
the
values are zeroes?

--


Gary