T4354_Create New Sheet From Template

https://excel-egy.com/forum/t4354
---------------------------------

Sub Create_New_Sheet_From_Template()
    Dim sheetName As String

    sheetName = InputBox("Please Insert Sheet Name.", , Replace(Date, "/", "-"))

    If sheetName = "" Or Len(sheetName) > 31 Then
        MsgBox ("You Did Not Insert A Name")
        Exit Sub
    End If

    Worksheets("الصفحة الهدف").Copy After:=Sheets(Sheets.Count)

    With ActiveSheet
        .Name = sheetName
        .Range("D4").Value = sheetName
    End With
End Sub