Apply footer code to all new workbooks

[Billy Rogers]

How can I have this apply automatically to all new workbooks? I
tried putting this in the Personal.xls BeforeSave event but it didn't
work on new workbooks.





For Each wksht In Excel.Sheets

wksht.PageSetup.CenterFooter = "Created by Billy Rogers &D"

Next wksht

 

[Colby Africa]

Hello Billy,

Check these two links for your answer:

http://www.mrexcel.com/archive2/54200/62986.htm
http://www.cpearson.com/excel/AppEvent.aspx

Colby Africa
http://colbyafrica.blogspot.com

 

[Guest]

You need an applicaton level event. Give this a look see...

http://www.cpearson.com/excel/AppEvent.aspx