Copy Paste worksheet creates error on buttons

[deduwa]

Hi,

I have a recorded macro that copies existing worksheet and pastes it to the right. The existing sheet has 4 ActiveX buttons (Each have their own related macro in the background).

The code is;

Sheets("Sheet1").Select
ActiveSheet.Buttons.Add(2118, 114.75, 131.25, 22.5).Select
ActiveSheet.Buttons.Add(2118, 29.25, 87.75, 15.75).Select
ActiveSheet.Buttons.Add(2118.75, 84, 66, 16.5).Select
ActiveSheet.Buttons.Add(2117.25, 56.25, 193.5, 18.75).Select
Sheets("Sheet1").Copy Before:=Sheets(2)
Sheets("Sheet1 (2)").Select
Sheets("Sheet1 (2)").Name = "Sheet1 (FX)"
Range("D267").Select


The issue I have is that when this macro executes, in both the original and new worksheet, the text within the ActiveX buttons disappears and is replaced by "Button 1", "Button 2" etc....

Is there a fix for this? I want the original text to stay as it is.

Thanks

 

[My Aswer Is This]

All you should need is something like this:
When you copy the sheet all the buttons are also copied to the new sheet.

Sub Copy_Sheet()
'Modified  7/25/2018  11:24:43 AM  EDT
Sheets("Me").Copy Before:=Sheets(2)
ActiveSheet.Name = "Sheet1(FX)"
End Sub

 

[deduwa]

Works a treat. Thanks

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Works a treat. Thanks