code not adding sheets

[dpaton05]

My code is not adding a sheet, and it looks like it should. It only has the one sheet called July. What have I done wrong?

Sub AddYP()
Dim NewYP As String
    NewYP = Tracker.Cells(5, 4)
    YP.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = NewYP
    Call CreateWB(NewYP)
End Sub
Sub CreateWB(NewYP As String)
Dim wb1 As Workbook
    Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & "\Young People\" & NewYP, FileFormat:=52
    With Workbooks(NewYP)
        Sheets(1).Name = "July"
        Sheets.Add '.Name = "August"
    End With
End Sub

 

[Marc L]

Your revamped code :​

Sub CreateWB(NewYP As String)
        Dim V
    If IsEmpty([D5]) Then
        MsgBox "Please enter a name of the young person you want to add in the name field at D5"
        Exit Sub
    End If
        CheckFolderExists
        Workbooks.Add.SaveAs ThisWorkbook.Path & "\Young People\" & NewYP, 52
    For Each V In Split("7 8 9 10 11 12 1 2 3 4 5 6")
        Sheets.Add(, Sheets(Sheets.Count)).Name = MonthName(V)
    Next
End Sub

 

[dpaton05]

Thanks, but with that code, I get the months in the correct format but there is still a sheet1 as the first sheet. How do I get rid of it?

 

[Michael M]

Application.DisplayAlerts = False
Sheets("Sheet1").Delete
Application.DisplayAlerts = True