Automatic Rename of a new sheet

[queysoft]

Hi - I put this into a button to copy a template and create a new sheet. It would be nice to add in the option to type in the new sheet name with a prompt, but I don't know how to do this.
At the moment a new sheet is created with the copied templete and its called "New Person (2)" and people have to manually rename it. I would like to know if its possible to build in a prompt into the macoro that says something like "please enter the name of your new person" and the new sheet automatically renames the tab......
Does anyone else?

Sub New_data_Sheet()
'
' New_data_Sheet Macro
'
Sheets("Add Person").Select
Sheets("New Person").Visible = True
Sheets("New Person").Select
Sheets("New Person").Copy Before:=Worksheets("Sheet1")
Sheets("New Person").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("New Person (2)").Select
'

End Sub

 

[AlanY]

try this

Sub New_data_Sheet()
Dim sheetName As String
sheetName = InputBox("Enter the name of the new sheet:")

If sheetName = "" Then Exit Sub

Dim newSheet As Worksheet
Set newSheet = Sheets("New Person")
newSheet.Visible = True
newSheet.Copy Before:=Worksheets("Sheet1")
newSheet.Visible = False

ActiveSheet.Name = sheetName
End Sub

 

[queysoft]

Thank you very much indeed!!!! Most helpful.

 

[AlanY]

Thank you very much indeed!!!! Most helpful.

you're welcome