copy sheet with buttons
 

I have a sheet with buttons and i want to copy this sheet to a new sheet
using a macro.

I use this code:
If Not SheetExists(ListBox1.Value) Then
Sheets(ActiveSheet.Name).Visible = False
Worksheets.Add.Move After:=Worksheets(Worksheets.Count)
Set Cursheet = ActiveSheet
Cursheet.Name = ListBox1.Value
Sheets("Orgineel").Visible = True
Sheets("Orgineel").Select
Cells.Select
Selection.Copy
Sheets(ListBox1.Value).Select
Range("A1").Select
ActiveSheet.Buttons.Add(377.25, 44.25, 71.25, 26.25).Select
ActiveSheet.Buttons.Add(377.25, 82.5, 71.25, 26.25).Select
ActiveSheet.Buttons.Add(377.25, 133.5, 71.25, 26.25).Select
ActiveSheet.Paste
Range("A3").Select
Sheets("Orgineel").Visible = False
ActiveWindow.DisplayZeros = False
Else

The listboxvalue is the name of the sheet.
But it looks like all text from the original sheet is super imposed on the
new sheet,

Can someone help.

Greetings Hans