I've tried to run your code in the posted workbook. However, each time I attempt to save I receive an error message indicating there are not sufficient resources available to perform the action.

I tried to clean up the workbook but even those steps generate an error message.

Is there another copy of your workbook that exists ? Maybe that version won't generate these error messages ?