You don't need code.

You could use a Dynamic named range via InsertNameDefine

=OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),6)

This will give you the the printarea for columns A:F and ignores the "" returned
by your formulas.

Name it Print_Area


Gord Dibben MS Excel MVP

On Sat, 10 Nov 2007 22:50:00 -0800, curiosity_killed_the_cat
wrote:

I have a spreadsheet that has a varying number of rows to print depending on
the amount of data. The columns are standard A:F but the rows could be 3 or
33. I have had a couple of goes but can't get it to play. Columns F have
data but don't print.

The cells after the last non blank have formulas that return "".

So, what I need is a code that will set the print area as A1:the last non
blank cell in Column F but not detect the formulas returning "" below the
last non blank.

Currently I have the print settings set to return [page]of[pages] as a
footer and A1:F1 at the top of each page. Am I correct in assuming that
specifying the print area won't alter those settings?

Thanks