Apply footer code to all new workbooks
 

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

Apply footer code to all new workbooks
 

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

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

Jim Thomlinson


"Billy Rogers" wrote:

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