Perplexing error in VBA code

I have files I have built to create and email invoices to various teachers. For a couple years, the code to send the sheet to the teachers worked flawlessly (Excel 2003)

In December, my PC was replaced and updated. Now Excel 2010. The flow of this sheet is such:

1. I enter data which is totaled and the simple sum is placed on a page called "Invoice"
2. A macro is run to copy this page and another to a new workbook and place that in a folder.
3. From that sheet, the button that is on the Invoice is pressed to email the sheet to the teacher. The routine also deletes the send button and saves the file as a macro-free file.

The button on the original invoice page works fine, and would send the invoice page to the teacher (this is not the step to do that). However, the same button on the actual invoice now creates an error (Run-time error '-2147024809 (80070057)) I am perplexed as the code runs on the original file, and doesn't on the copy of the file.

Please Login or Register  to view this content.

The code on the new copy file is the same. This has always worked, and rem out the ActiveSheets shape code and it works properly, without deleting the shape.


There are 26 files that must be sent this way, and in a month I will need this to work for staff who will cover for me while I am out of the office. Help!

That error would indicate that a control with that name ("ControlButton1") was not found. Double check the name of the shape.

Where do you get the error?

If it is on the line to delete the button and the button is the only shape on the sheet you could try changing to this.

Please Login or Register  to view this content.

Any chance you could upload a sample workbook?

Click on GO ADVANCED, scroll down and click Manage Attachments.