Hi Chrysalla,
Sub Tester()
Dim dProp As DocumentProperty
Dim WB As Workbook
Dim i As Long
Set WB = ActiveWorkbook
For Each dProp In WB.BuiltinDocumentProperties
On Error Resume Next
Debug.Print dProp.Name, dProp.Value
On Error GoTo 0
Next dProp
End Sub
