Thanks Paul

That works a treat.

Inserting a bookmark was a general idea and I wanted to make it work for inserting autotext without damaging the header and your code works the same there:

Dim Rng As Range
Set Rng = ActiveDocument.Sections(1).Headers(wdHeaderFooterP rimary).Range
Rng.Collapse wdCollapseStart
ThisDocument.AttachedTemplate.AutoTextEntries("_Cl assificationStatus").Insert RichText:=True, where:=Rng

Thanks again
Chris.