Macro to Zip large worrkbook not working

[Shellybelly]

Can anyone help me with my coding...I am trying to zip a large workbook but it keeps giving me a run time error "Sub or Function not defined" Can anyone help me with that..

I've written the code below:

I've also placed in a dummy sheet

Please Login or Register  to view this content.

Any help will be greatly appreciated.

[millz]

I didn't look at your workbook, but you probably missed to copy the sub NewZip.

Please Login or Register  to view this content.

If it is not an absolute must to zip the workbook, one alternative is to simply save it as an .xlsb workbook.

I did a small testing to one large file that I have, in different formats and their zipped versions, and compared their file sizes. The best zipped file size is .xls but it's too troublesome and takes too long to do so.

Saving my file in .xlsb gave me a significantly smaller file size compared to .xlsx and zipping it further is not necessary for me. And fast.

	Original size	Zipped size
.xls	151,270KB	11,864KB
.xlsx	47,880KB	39,501KB
.xlsm	47,880KB	39,502KB
.xlsb	18,084KB	16,323KB