Creating a workbook and saving it with a given name

[dpaton05]

I have code that adds a name to a list and I am trying to write code to create a workbook and call it by the name that was added to the list.

This is what I have so far but this code just highlights the word Filename and says named argument not found.

What is wrong with my code?

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 Filename:=NewYP
    'wb1.Name = NewYP & ".xlsm"
End Sub

 

[Michael M]

Try using

ActiveWorkbook.SaveAs Filename:=NewYP

OR

Workbooks.Add.SaveAs Filename:=NewYP

 

[dpaton05]

Thanks Michael. How do I make it a macro enabled workbook

    Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & "\Young People\" & NewYP

 

[dpaton05]

I worked it out

    Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & "\Young People\" & NewYP, FileFormat:=52