Macro to Change Footer on all worksheets

[Karin]

Hi, I've attached the previous correspondence, but it was a while ago, so I
wasn't sure anyone would see it.

The problems is that it seems to go to next sheet and on from there without
changing the sheet you are on or the sheets before it.

 

[Karin]

Actually, I just realized that there is code in the workbook that puts the
footer on -- it's on This Workbook -- how can I write something that disables
this code completely? This is for someone in our office who gets these
various reports in monthly and needs to remove the footer on all worksheets
-- the file changes so I need a macro she can run over and over. TIA

 

[Barb Reinhardt]

No macro needed. Have her select all of the sheets and then change the
footer. It will change all of them at once.

 

[Karin]

Thank you -- however, that doesn't remove the Before_Print code which puts
the footer back in, so it doesn't work. I can delete the code, but the
person I'm trying to help doesn't know much about excel - I am trying to find
an automated way to remove this code.

 

[Don Guillett]

There is code available to change code but have you considered having your
friend email you the workbook for you to change and email back?

 

[Barb Reinhardt]

If you want it completely disabled, remove the BeforePrint procedure.
Otherwise, you'll need to provide more information on when you don't want it
used so that we can assist with code changes.

 

[Barb Reinhardt]

If you must write a program to do it, you can find information here on how.

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

I agree with Don though. I'd have them send the workbook to modify and send
it back.

 

[Gord Dibben]

Caveat with this method.

All sheets' entire print setup will be altered to that of the active sheet.

i.e. not just the footer setup.


Gord Dibben MS Excel MVP