Make a new sheet, named by cell value

[blaksnm]

Hey guys
Based on an active celle I want to create a new sheet in my workbook by copy a "template sheet and rename this copy as indentical to the active cell value.
The active cell value is unique in my list.

Can anyone guide me on this one?

 

[Sektor]

Try this one.

Sub CreateSheet()

    Dim shTemplate As Worksheet, cell As Range
    
    Set cell = ActiveCell
    Set shTemplate = Sheets("Template")
    
    shTemplate.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = cell.Value

End Sub

 

[blaksnm]

Magnificant! Super-thank you!
How will I overwrite if the sheetsname alleready exist?

 

[Sektor]

Sub CreateSheet()

    Dim shTemplate As Worksheet, cell As Range

    Application.DisplayAlerts = False    

    Set cell = ActiveCell
    
    If SheetExists(cell.Value) Then Sheets(cell.Value).Delete
        
    Set shTemplate = Sheets("Template")
    shTemplate.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = cell.Value
    
    Application.DisplayAlerts = True
        
End Sub

Function SheetExists(SheetName As String) As Boolean
    Dim sh As Worksheet
    On Error Resume Next
    Set sh = Worksheets(sh)
    If Not sh Is Nothing Then SheetExists = True
End Function

 

[blaksnm]

Thanks a lot!

 

[Sektor]

There's little change in code - see my last code.

 

[blaksnm]

Thanks again

 

[blaksnm]

Im sorry - the "delete" command did not work:

The makro creates the Sheet "Tempate(2)" all right, but crashes after that messaging that the new name allready exists.

 

[Sektor]

You messed up something. If sheet exists, it deletes it and then creates new sheet.

 

[blaksnm]

Apearntly
It seems that the command:
If SheetExists(cell.Value) Then Sheets(cell.Value).Delete
not really find the sheet to delete if it exists allready, and crashes the macro.