How to Fix: Copying Worksheet breaks Button (Form Control) Links and Custom Name

[willow1985]

Hello,

I have a Macro that makes a copy of the current sheet I am on, however every time it does it breaks 2 of my Form Control Buttons on the Sheet that are linked to Macros.

Is there any way to prevent this?

Sub VIEW_DD()
'
' VIEW_DD Macro
'

'
Application.DisplayAlerts = False
Application.CopyObjectsWithCells = False
    Sheets("Demand Detail").Select
    ActiveSheet.Buttons.Add(4.5, 3.75, 81.75, 36).Select
    ActiveSheet.Buttons.Add(90.75, 3.75, 62.25, 36).Select
    ActiveSheet.Shapes.Range(Array("Year 1")).Select
    ActiveSheet.Shapes.Range(Array("Flag 1")).Select
    ActiveSheet.Shapes.Range(Array("Flag without Date")).Select
    ActiveSheet.Shapes.Range(Array("Order Type")).Select
    ActiveSheet.Shapes.Range(Array("Column1")).Select
    Sheets("Demand Detail").Copy
    Windows("Master Forecast Inc.xlsm").Activate
   
    Application.DisplayAlerts = True
    Application.CopyObjectsWithCells = True

End Sub

Thank you to anyone who can help

 

[willow1985]

I figured it out. I had to remove the following 2 lines:

   ActiveSheet.Buttons.Add(4.5, 3.75, 81.75, 36).Select
    ActiveSheet.Buttons.Add(90.75, 3.75, 62.25, 36).Select