File size too big

[princessdy]

Hi, I have one file that bugs me. It contains some data and I cannot understand why the file is more than 1MB. Our file size is usually 40-80KB some exceeding 400KB but that's about it.

I tried all the tips from the web how you can reduce the file. Until I tried deleting all our worksheets inside and the file is still more than 1MB.

Can you let me know why is this so?

The test file is below.

Test File

 

[Michael M]

If you press CTRL + end, which cell does it go to on each sheet ?
You could also try running this macro, then saving the workbook.

Sub MM2()
    Dim x As Long, LastRow As Long, LastCol As Long
    Application.ScreenUpdating = False
    On Error Resume Next
    For x = 1 To Sheets.Count
        With Sheets(x)
            LastRow = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
            LastCol = .Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
            .Range(.Cells(1, LastCol + 1), .Cells(Rows.Count, Columns.Count)).Delete
            .Range(.Cells(LastRow + 1, 1), .Cells(Rows.Count, Columns.Count)).Delete
        End With
    Next x
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

 

[princessdy]

When I press CTRL + END, the cell point to A1.

I run the macro. Is it supposed to do anything? I saved the file with the macro and the file size is still more than 1MB.

 

[princessdy]

As an alternative solution for my original file, I just copied each worksheet to a new file and the new file became 67KB in size.

So for future case, let me know what makes the file so big when all the worksheets are blank? The file is linked in the first post.

 

[Michael M]

Sounds simply like a corrupted file !

 

[princessdy]

Sounds simply like a corrupted file !

OK! Then I'll just delete the file so it won't be used again for next year. We re-use the file for next year in our case. Thanks for your time!

To others, if you have other ideas, let me know!