Naming a new WorkBook

[Rasm]

Below is the code I use to add a new workbook - but How can I assign a name to the new workbook - If I try to use the .Name property - I am told readOnly. Any help is appreciated.



Dim NewBookX As Workbook
Set NewBookX = Workbooks.Add

[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

[Rasm]

ahhh - great - thanks

[Excel Fox]

Try this....



Dim wbkNew As Workbook
Workbooks.Add(xlWorksheet).SaveAs Filename:="NewName", FileFormat:=&H34 '33 = XLSX, 34 = XLSM
Set wbkNew = Workbooks("NewName.xlsm")
With wbkNew
.ChangeFileAccess xlReadOnly
Kill .FullName
End With

[Rasm]

Will do - the other one did not like a full compile - thanks