Robert,

Did you set a reference to DS: OLE Document Properties 1.2 Object Library as
Chip suggested?

If you don't have the library, you can get it at
http://support.microsoft.com/default...;EN-US;Q224351

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Robert Hind" wrote in message
...
I'm trying to use some code I've found on Chip Pearson's web site to
access
CustomDocumentProperties in Closed Files but without success. The code is
as
follows. Can anyone help?

Dim FileName As String
Dim DSO As DSOleFile.PropertyReader
Set DSO = New DSOleFile.PropertyReader
FileName = "C:\Book1.xls"
With DSO.GetDocumentProperties(sfilename:=FileName)
Debug.Print .AppName
Debug.Print .Author
Debug.Print .ByteCount
Debug.Print .Company
'
' lots more properties
'
End With


__________________________________________________ ________________