Hi, everyone!
Please, I need help with VBA code for Excel 2010.
I have a sheet with 3 command buttons (shapes with assigned macros) on it. Now, I would like to copy the sheet to new workbook along with only one button and code. Code is as follows: 

Sub Save
Dim New_file_name
With ActiveSheet
New_file_name = Application.GetSaveAsFilename(ActiveSheet.Range("A1").Value & "_" & ActiveSheet.Range("c6").Value & "_" & ActiveSheet.Range("F18").Value & "_" & Format(Date, "dd-mm-yy"), " Excel Macro Enabled Workbook (*.xlsm), *.xlsm", , "Save")
If New_file_name = "False" Then Exit Sub
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=New_file_name, FileFormat:=52
Application.Sheets("Sheet1").Activate
ActiveSheet.Shapes("Button 1").Delete 
‘Delete button 1
ActiveSheet.Shapes("Button 3").Delete
‘Delete button 3
ActiveWindow.Close savechanges:=True
MsgBox "Report is saved.", vbInformation + vbOKOnly, "Report”
End With
End sub
Code works well in Excel 2007 but not in Excel 2010. In version 2010, command button is copied with sheet to new workbook but it has no assigned code and doesn’t work.

Any help is appreciated.

S.