Here is some code adapted from Chip Pearson's website:

Sub MrsSmith()
Dim FileName As String
Dim DSO As DSOFile.OleDocumentProperties
Set DSO = New DSOFile.OleDocumentProperties
FileName = "C:\alpha keyword.xls"
DSO.Open sfilename:=FileName
MsgBox (DSO.SummaryProperties.Keywords)
DSO.Close
End Sub

It examines a single file and displays the keywords property. For your
application, you would need to use FileName as an array to examine a group of
files and you must also insure that you have DSO 2.0 installed.


See:

http://www.cpearson.com/excel/docprop.htm
--
Gary''s Student - gsnu200727


"Mrs. Smith" wrote:

How do I locate a file using keywords from the properties dialog box?