Hi Ricki

You need to loop in two ways: once for each section, and within each
section, once for each header. Like this:

Sub Watermarks()

Dim oSection As Word.Section
Dim oHF As Word.HeaderFooter

   For Each oSection In ActiveDocument.Sections
       For Each oHF In oSection.Headers

           'add the watermark to this header
           'in this section

       Next oHF
   Next oSection

End Sub

However, there have been several threads on these newsgroups from people
saying that they find it difficult to insert watermark-type shapes into
headers and footers. I've experienced the same thing. In particular, Word
sometimes puts two copies of the shape into one section and none in another.
My recent effort at trying to sort this out suggests that it works best if
I:
- start with the cursor at the *end* of the document
- explicitly select the range into which to insert the shape
- try re-paginating the document either before I start the whole thing, or
just before any troublesome bit of code.

And don't set the semi-transparent setting for the reason described here:
http://www.ShaunaKelly.com/word/watermarkletters/index.html

Hope this helps.

Shauna Kelly.  Microsoft MVP.
http://www.shaunakelly.com/word