Addin >> Styles.Merge

[galileogali]

I want have MyStyles in all the books.

Create a Addin, MyStyles.xla, where are the custom styles
In a standard module put this macro:

Sub Auto_open()
Application.ActiveWorkbook.Styles.Merge Application.ThisWorkbook
End Sub

Works only when the two books are open, but If call with the opening of a previously closed book, it produces an error

 

[shg]

That only runs once when the add-in opens. You could assign a shortcut to the macro and run it at will.

 

[galileogali]

You are right:
I'm going to build an addin as a simple repository of styles and calling them with the Autpen (General Template) existing in XLSTART Libro1.xl* (Workbook.xlsx)



shg
Thank you very much

 

[shg]

Fine plan, I think. Post back if you get stuck.