What you'd need to do is to insert a Section break before the heading (only if one isn't already there), then unlink the Section header/footer from the previous Section before er-setting the page numbering.

PS: Your code incorporates numberous '.Select' directives that add nothing to what you're doing other than slowing things down.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]