Neil,

Not sure what the difficulty is, but this is how to set a property

With ActiveWorkbook.BuiltinDocumentProperties
.Item("Subject") = Activesheet.Range("A1").Value
End With


--

HTH

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

"Neil Rogers" wrote in message
...
Hi, is there anyway to take some values from a
spreadsheet and stiock them into the file properties
summary for the file, like Subject, Author, Manager,
Topic etc. I would like to throw together a little form
that is displayed before Close to force people to enter
the details about the file that will then be picked up
during the indexing process.

Best regards