You have 33,625 shapes in sheet "July 2011" and 286 on each of the others, what they are for, other than two, I have no idea.
Select the sheet, then in the VBa editor Immediate Window Type this
Press Return
If the number returned is more than 2 then type this in a new row in the Immediate Window
Press Return
Return to Excel
Hold down ctrl and click on your two Command Buttons to remove them from the selection release ctrl
Right click on any highlighted shape then select Cut from the shapes menu.
Do this for each sheet in turn.
I don't think you are returning the correct date in the "full date" column
Try this in M2 (Format the column number Format > Date ... your choice
I have cleaned the attached workbook, but suggest you do the above with your copy.
Bookmarks