End Cells - File Size

[J Donahue]

I am trying to reduce the file size of a file I am
creating. It is currently at 3.6MB, with about 10
worksheets.

I posted earlier and someone recommended hitting Ctrl-End
on my sheets to see where it was that Excel thought the
end of the data was. I did this with a few of the
workbooks and the end appears to be out in the middle of
nowhere. They then recommended that I delete all the
columns and rows past my actual data and then save the
file.

I tried this but when I hit Ctrl-End on those sheets it
still takes me way past my data ranges.

Any help would be appreciated.

Thanks in advance

Jeff

 

[Peo Sjoblom]

Don't use the delete key, do exactly as follows

Select the first row below your data that is empty ( click the row header)
then press ctrl + shift + down arrow then do edit>delete, then save the
workbook, select the first column to the right
that is empty, do ctrl + shift + right arrow, do edit>delete. Save the
workbook (on some earlier excel version I believe you had to close and
restart excel as well.

 

[Macgyver Goh]

Dear J Donahue,

You may find your answer here :

http://www.contextures.on.ca/xlfaqApp.html#Unused

There is a deleteUnused( ) macro in this page that worth trying, but make
sure the file is not shared.
Run the macro and do a save, you should see wonder. I have successfully
trimdown one of my share file which grew to 16MB in size down to 4MB....

HTH

 

[Robert]

Dear HJH,


your post was very helpfull. The macro on the page you
specified goes through each worksheet in the workbook and
deletes unused rows. I only want to use this macro on one
specific sheet so do you know how the macro has to be
changed to run on only one sheet rather than the whole
workbook?


You help is greatly appreciated.

Robert

 

[Peo Sjoblom]

You could replace

[For Each wks In ActiveWorkbook.Worksheets
With wks]

with

[With Worksheets("name of sheet")]

and delete

[Next wks]

 

[Robert]

That worked! Thank you vey much

-----Original Message-----
You could replace

[For Each wks In ActiveWorkbook.Worksheets
With wks]

with

[With Worksheets("name of sheet")]

and delete

[Next wks]


--

Regards,

Peo Sjoblom

Dear HJH,


your post was very helpfull. The macro on the page you
specified goes through each worksheet in the workbook and
deletes unused rows. I only want to use this macro on one
specific sheet so do you know how the macro has to be
changed to run on only one sheet rather than the whole
workbook?


You help is greatly appreciated.

Robert



worth
trying, but make size
down to 4MB.... Ctrl-
End

.