Shrinking workbook size

I must parse through a directory taking all workbooks, removing dead space shrinking the size of the worksheets in each workbook.

The code is below. It works except that it removes everything in all the worksheets.

Any help would be appreciated.

Thanks

emp1953

Please Login or Register  to view this content.