Add TextBox in FirstPage Header

[Zig999]

Hi there.

The documents I'm working with have to had the FirstPageHeaderFooter = true.
I want to add a textbox to this firstpage header and I just can´t get it done.
Here is the code I´m trying to use. It adds the normal text to the right header, but the Textbox is added in the second page, and not the first one.

Sub ShapeAdd()

Dim ShapeTest As Shape
Dim Section As Section
Dim Header As HeaderFooter

With ActiveDocument
    .PageSetup.DifferentFirstPageHeaderFooter = True
    .Sections(1).Headers(wdHeaderFooterFirstPage).Range.InsertBefore "My Text"
    .Sections(1).Headers(wdHeaderFooterFirstPage).Shapes.AddTextbox msoTextOrientationHorizontal, 480, 100, 70, 14
End With

End Sub

Any idea why? help? Sugestions?

Thanks everybody

Zig

 

[Zig999]

Anybody???