Speed-up Macro

Looking for help optimizing a program. The program prints a dashboard and allows the end user to pick the range with a message box, specify number of printouts and print preview (yes or no).

The program does precisely what I want it to do; however, it does it extremely slowly.

Specifically there are two things that seem to be slowing it down 1) setting the header/footer and 2) setting the active sheet properties. Each of these steps is taking about 5 full seconds to run. >10 seconds to run a print macro is just too long!

The full code is:

Please Login or Register  to view this content.

If I remove:

Please Login or Register  to view this content.

and:

Please Login or Register  to view this content.

The program is fast as expected.

Any thoughts on how I can change or modify this so it's not so slow but still allows me to set the header/footer and active sheet properties?

Any help is appreciated.
Thanks!!!