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!)
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
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
--