Macro for copying sheet and naming

[Firecop1348]

I have been working on a workbook for workorders. I got it all set up but have thought about something that would save me a great amount of time.
I have a macro that makes a copy of my main workorder when clicked but the name of the new sheet is workorder (2), workorder (3) ect. . I would like to know if I could have it when I click the button to run the macro, it brings up an input box to name the new workorder sheet, then copys my orignal workorder and creates the new sheet naming it what I put into the input box. Any help would be great, everyone here has been so good to help with problems.
Thank you in advance.

 

[VoG]

Assuming that you have an ActiveX button on the sheet to be copied try

Private Sub CommandButton1_Click()
Me.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = InputBox("Enter sheet name")
End Sub

 

[Firecop1348]

Im sorry, the sheet that is being copied has no active x button on it. I have a main page with a few on it. one to take me to my invatory page, one to find a workorder, and one to create a workorder from the master workorder sheet.

Sub NewWO()
 
     Sheets("work order").Select
    Sheets("work order").Copy After:=Sheets("work order")
     Range("C9").Select
    With ActiveSheet
     .Range("E5").Value = .Name
 End With
 
End Sub

i would like this macro to work as i said earlyer, but when clicked I can input the name "bob" I want the sheet to be named and when it is created its name is " bob"
I hope this helps.

 

[VoG]

Try

Sub NewWO()
Sheets("work order").Copy After:=Sheets("work order")
With ActiveSheet
    .Name = InputBox("Enter sheet name")
    .Range("E5").Value = .Name
End With
End Sub

 

[Firecop1348]

Thank you very much. I thought it would be more involved that it was.