Sheet size in workbook

D

Dave Peterson

You could get kind of an estimate by looking at the current size, deleting the
sheet and saving the workbook without the sheet--then subtract the sizes.

But it's just an estimate.

(and don't damage your real workbook--do it against copies!)
 
D

Don Guillett

Sub filesize() 'For filename typed in a cell
If ActiveCell.Value = "" Then Exit Sub
MsgBox " FILE SIZE IS " & Format(FileLen(ActiveCell & ".xls") * 0.0009767,
"0") & " KB"
End Sub
 
R

RagDyeR

After you try Dave's suggestion, see how this equates to your results:

=INFO("memused")

Used on a 'saved' sheet.
 
D

David McRitchie

Hi Bobby,
Same thing in a macro, have the files created in a directory
that you can eliminate later.
Saveas, Save each worksheet as a separate workbook
http://www.mvps.org/dmcritchie/excel/saveas.htm

If you are trying to find out which files have used range extended
beyond actual data, you can fix all of the sheets at one shot with
a macro, and would suggest doing this before the above.
Why do my scrollbars go to row 500 -- my data ends in cell E50?, contextures.com, Debra Dalgleish
http://www.contextures.com/xlfaqApp.html#Unused
--
 
Top