Hi sqzdog,

I'm travelling with only intermitent internet access, hence the delay in replying.

What you're asking is a rather trivial task (and should have been fairly obvious) - change:
With wdDoc.Sections(1).Footers(wdHeaderFooterPrimary).R ange
to:
With wdDoc.Sections(1).Headers(wdHeaderFooterPrimary).R ange

or, if you want to combine both routines into the same code, simply duplicate the:
With wdDoc.Sections(1).Footers(wdHeaderFooterPrimary).R ange
...
End With
block and make the above change to one of them.

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