How are you coding it now? How many (different) headers have you got - in
fact, thinking about it, why have you got lots of different headers at all
if you want the same content in each?

You don't need code for the cross reference - just create it (manually) and
save as an autotext in the same way you have (presumably) done for your
bookmark.

I've just realised you're running two threads with this problem - it must be
as confusing for you as it is for me.

If you have two different Autotexts - Smokey and Smokey2, say - one with a
bookmark and one with a cross-reference to it, you should be able to change
Stefan's code along these lines:

Sub AddToMainHeader2()
Dim r As Range
Dim s As Section

For Each s In ActiveDocument.Sections
Set r = s.Headers(wdHeaderFooterPrimary) _
   .Range.Paragraphs(1).Range

With r
   .ParagraphFormat.TabStops.ClearAll
   .ParagraphFormat.TabStops(InchesToPoints(1.25)) _
   .Alignment = wdAlignTabLeft
   .ParagraphFormat.TabStops(InchesToPoints(6.5)) _
   .Alignment = wdAlignTabRight

   .Collapse wdCollapseStart
   .InsertAfter vbTab
   .InsertAfter vbTab
   .Collapse wdCollapseEnd

   If s.Index = 1 then
       NormalTemplate.AutoTextEntries("Smokey").Insert _
       Where:=r, RichText:=True
   Else
       NormalTemplate.AutoTextEntries("Smokey2").Insert _
       Where:=r, RichText:=True
   End If

End With
Next s

End Sub