Use the Application object qualifier to set properties
Sub appProperty() Application.Calculation = xlManual Application.EditDirectlyInCell = False Application.DefaultFilePath = "C:\My Documents" End Sub