i am looking in a range of cells for non-blank cells. the range has formulas
that may equate to blank, so they're blank, not empty.=IF(J24=0,"",J24)
i was looking for blank cells and this routine worked, but i don't know how to
end the loop.

or, if there is a better way, please let me know

With ws.Range("AS23:AV" & lastrow)
Set rngfound = .Find(What:="", LookIn:=xlValues)
Do
If rngfound Is Nothing Then
Else
MsgBox rngfound.Address ' code goes here
Set rngfound = .FindNext(rngfound)
End If
Next
Loop While
--


Gary