Embedding Your Phone Number in a Workbook

My Excel Toolbox includes the following function to set the text, numeric, logical, date/time, or error value of a workbook's document property and return confirmation:
    =SetDocProperty(Name, Value, [AsDate], [Delete])
Name's case is ignored if built-in or custom document property Name exists; in this case it will be set to Value. Otherwise, a new custom document property Name/Value pair are added; in this case Name's case is retained.
If AsDate is TRUE, Value is treated as date/time; default is FALSE.
If Delete is TRUE, custom document property Name will be deleted; default is FALSE. A built-in document property cannot be deleted.
For example, this formula will set the "Telephone number" custom document property as text:
    =SetDocProperty("Telephone number", "123-456-7890")
The following function returns the value of a workbook's built-in or custom document property:
    =GetDocProperty(Name, [Approx])
Name's case is ignored. If optional Approx is FALSE (default), then Name is considered explicit; otherwise, the value of the first document property containing Name is returned. Text values are returned directly. A logical, date/time, or error value will be returned as equivalent text; any other number is returned as a number.
For example, this formula will return the first document property containing "telephone" in its Name (case ignored):
    =GetDocProperty("telephone", TRUE)
The following dynamic array function lists the workbook's built-in and custom (if any) document properties with 2 columns and N rows:
    =ListDocProperties([SkipNull], [SkipCustom], [SkipHeader])
There are currently 34 built-in document properties in an Excel workbook; many of these normally have a null value. Custom document properties do not exist until set; the Names in the Tip's Figure 1 are merely suggestions.
Each worksheet can have custom properties independent of a workbook's custom properties. The following functions set or return the value of a custom worksheet property:
    =SetCustomWSProperty(Name, Value, [Sheet], [Delete])
    =GetCustomWSProperty(Name, [Sheet])
Name's case is ignored if custom worksheet property Name exists; otherwise, its case is retained when the new Name/Value pair are added.
Value is always converted to equivalent logical, date/time, numeric, error, or other text and returned as text.
If optional Sheet is omitted, the custom property applies to the formula cell's worksheet; otherwise, it applies to the specified Sheet (case ignored) in that cell's workbook.
If Delete is TRUE, custom worksheet property Name will be deleted; default is FALSE.
The following dynamic array function lists any custom worksheet properties:
    =ListCustomWSProperties([AllSheets], [SkipHeader])
If AllSheets is FALSE (default), only the formula cell's worksheet will be evaluated; otherwise, all worksheets in the workbook are included.
The SpillArray function (described in UseSpillArray.pdf) simulates a dynamic array in older versions of Excel.
See https://sites.google.com/view/MyExcelToolbox