that should get me started, thanks mike.

--


Gary


"Mike H" wrote in message
...
Hi,

Try this

Sub revision_number()
RevNo = ThisWorkbook.BuiltinDocumentProperties("Revision Number")
MsgBox RevNo
ThisWorkbook.BuiltinDocumentProperties("Revision Number") = _
ThisWorkbook.BuiltinDocumentProperties("Revision Number") + 1
RevNo = ThisWorkbook.BuiltinDocumentProperties("Revision Number")
MsgBox RevNo
End Sub


Mike

"Gary Keramidas" wrote:

i usually right click on an excel file in explorer and enter a revision
number
on the advanced properties page. this number shows on the statistics tab
under
file/properties in excel.

is it possible to extract this number with code?
is it possible to set this number with code?


--


Gary