Apply footer code to all new workbooks

's Computer Specifications

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

's Computer Specifications

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

's Computer Specifications

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
>
>

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
how can i apply a footer in every .exl file	rakesh	Microsoft Excel Programming	2	4th May 2010 01:07 PM
how do I apply a footer in access	phoenix326	Microsoft Access Getting Started	3	4th Nov 2009 05:51 AM
Making Default Code Apply to Preexisting Workbooks	JT Klipfer	Microsoft Excel Programming	1	25th Sep 2009 10:03 PM
Use VBA to Apply various Security Levels in Workbooks	=?Utf-8?B?VHJpY2lhIFlvdW5n?=	Microsoft Excel Programming	8	10th Oct 2006 05:19 AM
Apply macro to closed workbooks	Belinda & Jamie	Microsoft Excel Programming	5	31st Jul 2003 05:31 PM