Dim rng As Range

Set rng = Range("C" & Rows.Count).End(xlUp)
Set rng = rng.End(xlUp)


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Otto Moehrbach" wrote in message
...
Excel XP, Win Vista
I have a table of formulas that produce blank cells on condition. To set
the print range I want to find the first non-blank cell in Column A
looking from the bottom up.
Doing End(xlUp) will hit on the first formula cell (looking up) and not
the first non-blank cell. Looping up through Column A looking for a value
of not zero will find what I want.
Question: Is there a better way? Thanks for your time. Otto