Macro to Create & Modify Workbk Properties

[Nimrod]

Hello fellow Xl'ers
I'm creating a Module Transfer Manager and need a little help. I want to keep track of Version numbers between the "MTM" and the client WorkBook Modules.

Problem:
What I would like to do programatically is:
(1) create a user defined property called ModVersionNum.
(2) be able to enumerate this property by macro
(3) be able to change the value thru a macro

Reason:
The "MTM" has a Form that shows the Modules in the MTM and the Client and the Version of the WorkBook. From this information the user can decide if the want to collect or distribute the Modules from the MTM.
Thanks for you help .

[Damon Ostrander]

Hi Nimrod,

Why not create a CustomDocumentProperty? Here's how:

ThisWorkbook.CustomDocumentProperties.Add _
Name:="ModVersionNum", _
Type:=msoPropertyTypeNumber, _
LinkToContent:=False, _
Value:=1

will create a CustomDocumentProperty in ThisWorkbook (just change to ActiveWorkbook, or whatever workbook you want to contain the property).

To modify the value of this new property:

ThisWorkbook.CustomDocumentProperties("ModVersionNum").Value = 5

sets the value of this property to 5.

If you want to set the value to a number like 5.03 you will need to declare the type as msoPropertyTypeFloat or msoPropertyTypeString.

[Nimrod]

Thanks alot Damon ... that's a great way of doing it .