Copying button with sheet help

[jstacy]

I have a template sheet that I need to copy 1 button on the template sheet to the new sheet. I am using the following code to copy the sheet; can someone assist with the code need to copy the button (Button 2) as well in this code?

Sub Duplicate_Sheet()    Dim wsName As Variant
    With ThisWorkbook
        .Worksheets("BOM Template").Copy After:=.Worksheets("BOM Template")
    End With
    wsName = InputBox("Enter Part #" & vbCrLf & "Example: SagePart# (Drawing #)", "New sheet")
    If wsName <> "" Then
        With ActiveSheet
            .Name = wsName
            .Visible = True
            ActiveSheet.[C4] = ActiveSheet.Name
        End With
    End If
    With Range("F5")
.Value = Date
.NumberFormat = "mm-dd-yy"
End With
End Sub

 

[My Aswer Is This]

When I use your script all the buttons are copied to the new sheet. Are you saying you only want to copy button named "Button2"? And all the data but not other buttons.

I have a template sheet that I need to copy 1 button on the template sheet to the new sheet. I am using the following code to copy the sheet; can someone assist with the code need to copy the button (Button 2) as well in this code?

Sub Duplicate_Sheet()    Dim wsName As Variant
    With ThisWorkbook
        .Worksheets("BOM Template").Copy After:=.Worksheets("BOM Template")
    End With
    wsName = InputBox("Enter Part #" & vbCrLf & "Example: SagePart# (Drawing #)", "New sheet")
    If wsName <> "" Then
        With ActiveSheet
            .Name = wsName
            .Visible = True
            ActiveSheet.[C4] = ActiveSheet.Name
        End With
    End If
    With Range("F5")
.Value = Date
.NumberFormat = "mm-dd-yy"
End With
End Sub

 

[jstacy]

When I use your script all the buttons are copied to the new sheet. Are you saying you only want to copy button named "Button2"? And all the data but not other buttons.

That is different then my result, none of the buttons copy over to the new sheet. I only want the one button but I am not getting any, only the sheet template itself.

 

[My Aswer Is This]

What type button is this? Is this a shape or a activex control type button. What is the exact name of the button?

Put button name in quotes like this "Button 1"

Are you using A Apple Computer?
What version of Excel?