VBA code suddenly does not work

[toneloke]

Heya,

Have a macro that deletes buttons off a spreadsheet and modifies the macros on other buttons which has always worked. Suddenly it is not working. It appears the bevel numbers have changed. I have recorded a macro to reiterate the required actions, cut and pasted it in the original space and it still does not work.

Bewildered.

Thanks

 

[RedBeard]

There is something missing in this post that makes it impossible to render assistance.

 

[toneloke]

There is something missing in this post that makes it impossible to render assistance.

Thanks RedBeard, What can I give you to assist? I am happy to show the code, but it forms part of a much longer process. And I think it is the Bevel numbers have randomly changed... but when I create new code with the new Bevel numbers, it still does not want to run.

Essentially, I am copying a spreadsheet and then modifying a few things on the spreadsheet - namely deleting buttons and relinking different macros to other buttons:

End If
ActiveSheet.Shapes.Range(Array("Bevel 7")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Bevel 8")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Bevel 6")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Bevel 5")).Select
Selection.OnAction = "Entire_Working_Hide_Lines"
ActiveSheet.Shapes.Range(Array("Bevel 9")).Select
Selection.OnAction = "Unhide_Lines_Working"

ActiveSheet.PageSetup.PrintArea = "$A$1:$N$700"

This code has worked for 6 years, but suddenly the Bevel numbers have changed and now the coding stops here and wants to be debugged. Changing the Bevel numbers does not help.

 

[RedBeard]

There we go, some code to look at.

While this looks perfectly valid, it apparently isn't.
If you say this has worked for six years, what has changed in your working environment?