Naming a new WorkBook

[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