Sub appProperty() Application.Calculation = xlManual Application.EditDirectlyInCell = False Application.DefaultFilePath = "C:\My Documents" End Sub