Save workbook without shapes

[windsurfer]

Excel 2010 i have a workbook called Invoice.xlsm I have 1 sheet that has 5 shapes on it that are assigned to a macro, I want to save the file as an xlsx so the macros don't save but get the microsoft error message that the vba won't be saved blah blah blah. Putting this before the saveas line Application.DisplayAlerts = False i get the error message that the file could not be saved.

Also, i want to save the file without the shapes but when i put the line ActiveSheet.Shapes("SaveAsPDF").Delete before the file is saved it deletes the button from the original sheet which of course i don't want.

Any suggestions.