Hi, Thanks. I tried that and much to my surprise an empty worksheet with 100
rows or 50,000 rows was the same size file.

Now I have another problem.  I have another sheet in this WB with about
75,000 rows of which after filtering only about 25,000 rows are needed, the
rows with good data can be identified as the cells in Column D that have a
value greater that 0 a quick sort can place all these at the top of the
worksheet.  Once this is done I want to delete all the data from the other
columns/rows below row 25,000. I need a solution that can be placed in a
macro to run and one that will find the 0 value cell as the next worksheet
may only have 2200 lines of good data s I cannot fix the macro to line 25000.

again, the goal is the same - to minimize the size of the file to be saved
to disk