Dim rng as Range, cell as Range
set rng = Range(cells(1,"P"),Cells(rows.count,"P").End(xlup) )
for each cell in rng
if cell.Offset(1,0).Value = 0 then
msgbox cell.Address
exit for
end if
Next

--
Regards,
Tom Ogilvy

wrote in message
ups.com...
Hi,

That does start to help me ...

But, instead of the find, how would I loop through each of the cells
in, for example, column P and inspect them one at a time?

I', not looking for a specific value particularly, I'm trying to find a
cell which satifies a certain criteria e.g. it must come before the
next zero value ...

TIA