Excel/Macros Trying to copy sheet2 and rename with list in sheet1 startind withA1- create as many worksheets as their are data in A1.

Private Function BadName(s As String) As Boolean
    BadName = False
    Dim iBadCharsCount As Integer
    iBadCharsCount = InStr(1, s, ":") + InStr(1, s, "\") + InStr(1, s, "/") + _
    InStr(1, s, "?") + InStr(1, s, "*") + InStr(1, s, "[") + InStr(1, s, "]")
    
    If iBadCharsCount > 0 Or Len(s) > 31 Then
        BadName = True
    End If
End Function

Function SheetExists(strSheetName As String) As Boolean
    ' returns TRUE if the sheet exists in the active workbook
    SheetExists = False
    On Error Resume Next
    SheetExists = Len(Sheets(strSheetName).Name) > 0
    On Error GoTo 0
End Function
Sub newSheets()
    With Sheets("Sheet1")
        For Each cell In Sheets("Sheet1").Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Cells
            If Not SheetExists(cell.Value) And Not BadName(cell.Value) Then
                Sheets("Sheet2").Copy After:=Sheets(Sheets.Count)
                ActiveSheet.Name = cell
            End If
        Next
    End With
End Sub

Function SheetExists(strSheetName As String) As Boolean
    ' returns TRUE if the sheet exists in the active workbook
    SheetExists = False
    On Error Resume Next
    SheetExists = Len(Sheets(strSheetName).Name) > 0
    On Error GoTo 0
End Function
Sub newSheets()
Dim cell As Range
Application.ScreenUpdating = False
    With Sheets("Dates")
        For Each cell In .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Cells
            If Not SheetExists(cell.Value) Then
                Sheets("Template").Copy After:=Sheets(Sheets.Count)
                ActiveSheet.Name = Format(cell.Value, "dd-mm-yy")
            End If
        Next
         Application.DisplayAlerts = False
        .Delete
    End With
    Sheets("Dates").Delete
    Application.DisplayAlerts = True
End Sub