Copy Excel Sheet with value from a cell "A1" in the same workbook

[Dalacarelia]

I looking for a solution , i need to copy same sheet many times but with diiferent name , and the name is in cell A1

 

[pboltonchina]

All the sheet names can't be in A1 or do you want to rename the sheet with the value in A1, is there a list in column A you want to create sheets named from? You need to be a bit more specific if you want any help. The question you have asked doesn't make sense

 

[Dalacarelia]

All the sheet names can't be in A1 or do you want to rename the sheet with the value in A1, is there a list in column A you want to create sheets named from? You need to be a bit more specific if you want any help. The question you have asked doesn't make sense

Sorry you are right there , i mean the value of A1 Cell , and it is alway a name in my case . I always have an template sheet , and i want top copy that sheet with the given name in cell A1

 

[Dalacarelia]

Sorry you are right there , i mean the value of A1 Cell , and it is alway a name in my case . I always have an template sheet , and i want top copy that sheet with the given name in cell A1

 

[VoG]

Try like this

Sub CopySheet()
Sheets("Sheet1").Copy after:=Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = Range("A1").Value
On Error GoTo 0
End Sub

 

[Dalacarelia]

How can i go back to my start Sheet ( Mallen ) when i created the new sheet

Sub Kopiera_Blad_Mallen()
Sheets("Mallen").Copy after:=Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = Range("A1").Value
On Error GoTo 0
End Sub

 

[VoG]

Try

Sub Kopiera_Blad_Mallen()
Sheets("Mallen").Copy after:=Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = Range("A1").Value
On Error GoTo 0
Sheets("Mallen").Select
End Sub