Thanks for responding. You are correct.
--
Gary''s Student - gsnu200723


"urkec" wrote:

"Gary''s Student" wrote:

Thank you Chip.

To get it to work I had to add a second custom property, however.
I wondow why?


Looks like you need to use a zero based index

Dim DSO As DSOFile.OleDocumentProperties
Dim CustProps As DSOFile.CustomProperties

Set DSO = New DSOFile.OleDocumentProperties

DSO.Open "Book1.xls", True, dsoOptionDefault
Set CustProps = DSO.CustomProperties

If CustProps.Count = 1 Then
Debug.Print CustProps(0).Name, CustProps(0).Value
End If

DSO.Close

--
urkec