This will give you the filesize from a typed name in a cell such as
myfile
Sub filesize() 'FOR SELECTED
If ActiveCell.Value = "" Then Exit Sub
MsgBox " FILE SIZE IS " & Format(FileLen(ActiveCell & ".xls") *
0.0009767, "0") & " KB"
End Sub
The only way I know to get an accurate sheet size would be to make a copy
without the sheet and subtract.
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.