On Nov 25, 10:12 pm, Dave Peterson wrote:
You could build a giant range (a union of the constants and formulas) or just
look through all the cells.

dim myRng as range
dim myCell as range

with worksheets("Somesheetnamehere")
'headers in Row 1???
set myrng = .range("d2",.cells(.rows.count,"D).end(xlup))
end with

for each mycell in myrng.cells
if mycell.value < 0 then
'found it, do what you want
end if
next mycell


What I meant was, what if the negative numbers I want to find are
formulas? In other words, the formula produces a negative number.