Name a Worksheet based on cell text

[ESquared]

Sub NewWSfromTemplate()
Dim WSName As String

Sheets("Template").Visible = True
Sheets("Template").Copy After:=Sheets(Worksheets.Count)
Sheets("Template").Visible = True
Sheets(Worksheets.Count).Select
WSName = Application.InputBox("Create new sheet")
ActiveSheet.Name = Range("k1").Value
Sheets("Template").Select
End Sub


I thought "ActiveSheet.Name = Range("k1").Value" would name the worksheet as the text in that cell but it asks for the tab name instead.

 

[Osvaldo Palmeiro]

Try

Sub NewWSfromTemplateV2()
 Sheets("Template").Visible = True
 Sheets("Template").Copy After:=Sheets(Worksheets.Count)
 ActiveSheet.Name = Range("k1").Value
End Sub