Application.ActivePresentation.CustomDocumentProperties _ .Add Name:="Completssssse", LinkToContent:=False, _ Type:=ksoPropertyTypeBoolean, Value:=False