How to get folder path for xltm file

Originally Posted by Norie

This code should be run once in the template file, personally I just ran it from the Immediate Window (CTRL+G).

ThisWorkbook.CustomDocumentProperties.Add "TemplatePath", False, msoPropertyTypeString, ThisWorkbook.Path

Once it has been run every new workbook created from the template file will have access to the custom property 'TemplatePath'.

If you put this code in the Open event it will run every time a new workbook is created from a template and will try and create another custom property named 'TemplatePath' and Excel/VBA is not going to like that.

Thanks. Now I removed the code Workbook_open, and it works now. So it returns the error message, because the property is already there?