**Print Area Macro OR alternative solution! :)

[pleasehelpSP]

Hi all,

I have 2-ish problems. First, I want to create a format that shades every other line grey in my worksheet - however, Excel won't let me do that because I am using AutoFilters. It says they must be disabled in order to format what I have, but I cant afford to undo them.

So, I thought I would manually (ugh, I know) shade every other row grey up to about a gazillion because I really need the every other line distinction. BUT, when I go to print, it prints ALL of the rows I've shaded grey (ie 50,000 pgs) so I attempted to make a Macro to select the print area of only the cells that have text.

I was given (bc I am code illiterate):

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Address

Which does set the print area, but still to the last cell formatted.

Can someone help me set the print area to the last row with TEXT or better yet, fix my inital problem??

-SP

 

[malvdh]

AlphaFrog,

Well it works great in the test code I made for this, now to put it in the real code. Thanks for your help, I'll let you know how the next part goes.

-malvdh