In diesem Beispiel werden die Namen der integrierten Dokumenteigenschaften als Liste im ersten Tabellenblatt angezeigt.
rw = 1 Worksheets(1).Activate For Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(rw, 1).Value = p.Name rw = rw + 1 Next