Hi
Why doesn´t this code work?

ActiveWorkbook.SaveAs FName
Sheets("Offert").Select
Range("D13").Select
ActiveCell.Value = ActiveWorkbook.BuiltinDocumentProperties("Creation
Date")