VBA Code to create new page

[mrRam]

`Hello, I was trying to create a new sheet using a `command button` and a `message box` with the same format and formulas as the sheet before, with the `command button` at the same place as the previous sheet (to allow myself to create a new sheet in the future using this one), however i cannot seem to find a way to get the `command button` to be in the new sheet.
Sub ADD_sheet()
Dim ws As Worksheet
Dim wsNew As Worksheet
Dim strName As String Set
ws = ActiveSheet
strName = InputBox("enter new sheet name")
Set wsNew = Sheets.Add(After:=Sheets(Sheets.Count))
wsNew.Name = strName
ws.UsedRange.Copy
wsNew.Range("A1").PasteSpecial xlPasteFormulas
wsNew.Range("A1").PasteSpecial xlPasteFormats
Application.CutCopyMode = False`
End sub
should i add something to the code or is there another solution that can solve this issue ?

 

[shinigamilight]

Try this

Sub ADD_sheet()
Dim ws As Worksheet
Dim wsNew As Worksheet
Dim strName As String
Set ws = ActiveSheet
strName = InputBox("enter new sheet name")
ws.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = strName
End Sub

 

[mrRam]

Try this

Sub ADD_sheet()
Dim ws As Worksheet
Dim wsNew As Worksheet
Dim strName As String
Set ws = ActiveSheet
strName = InputBox("enter new sheet name")
ws.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = strName
End Sub

Unfortunately it didn't work, still doesn't add the command button in the new sheet

 

[shinigamilight]

The sheet you're running the code from has a command button on it? Because this is basically creating a copy of that sheet.

 

[mrRam]

The sheet you're running the code from has a command button on it? Because this is basically creating a copy of that sheet.

Yeah but seeing that the command button is not in a cell, i think that's maybe why it doesn't apprear in the new sheet

 

[mrRam]

Unfortunately it didn't work, still doesn't add the command button in the new sheet

Perfect, it worked

 

[shinigamilight]

That's great

 

[Peter_SSs]

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.