View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ron Ron is offline
external usenet poster
 
Posts: 250
Default Generating Footers for Multiple sheets in Workbook

Hi,
I am just beginning to try and learn about VBA. I have a spreadsheet that
has 79 different tabs that I use for a price book. I need to be able to
automatically change the footers with a new effective date on each tab. I
have the following code which works ok, but I have to run it on each tab. Is
there a way to write this that will automatically change all 79 tabs by
running it only once?

ActiveSheet.PageSetup.RightFooter = "&I& Effective:February 20, 2006"

Any help would be greatly appreciated.
Thanks