Naming a new WorkBook

[Admin]

Hi,

Would this work ?

Dim NewBookX As Workbook
Set NewBookX = Workbooks.Add

If NewBookX.ReadOnly Then
    NewBookX.ChangeFileAccess Mode:=xlReadWrite
    NewBookX.Name = "NewName"
End If