CustomDocumentProperties Property Example

This example displays the names and values of the custom document properties as a list on worksheet one.

rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.CustomDocumentProperties
    Cells(rw, 1).Value = p.Name
    Cells(rw, 2).Value = p.Value
    rw = rw + 1
Next