VBA Code to Save Copy File without Macro Button and VBA Code on Copy?

I will need to change the "button1" to the exact name where i placed in the button box only? Rest of the code, remain unchanged?

ActiveSheet.Shapes.Range(Array("Button 1"))