Need macro that write Value in Properties Box

[rany]

Hi
I wonder if there is a macro that write Value in Properties Box, for eq. I need that the 'subject' field (in the Properties Box) would be the information from cell 'A1'
Thank's
Ran

 

[Mudface]

Try: -

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

 

[rany]

Thank's it works great
Ran