Private Sub DemoIssue()
Dim oRngStart As Range
Dim lngIndex As Long, lngSect
  Application.ScreenUpdating = False
  For Each oSec In ActiveDocument.Sections
    For lngIndex = 1 To 3
      Set oRng = oSec.Headers(lngIndex).Range
      For Each oShp In oRng.ShapeRange
        If InStr(oShp.Name, "PrivBox_") = 1 Then oShp.Delete
      Next
    Next lngIndex
  Next oSec
  For Each oSec In ActiveDocument.Sections
    For lngIndex = 1 To 3
      If Not oSec.Headers(wdHeaderFooterPrimary).LinkToPrevious Then
        InsertBox lngIndex
        If lngIndex = 1 Then Set oShpDup = oShp
        'DoEvents
      End If
    Next lngIndex
  Next oSec
  'But why does it fail? Using the origianal position 337.05, 72.2, 207#, 27# in the InsertBox procedure
  'Run the code with this Stop
  'Stop
  'Then step through and the Odd page is positioned correctly.
  'Remove the stop ans run the code.
  With oShpDup
    Debug.Print .Left & " - " & .Top
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
    .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
    .Left = InchesToPoints(3.68)
    .Top = InchesToPoints(0)
    Debug.Print .Left & " - " & .Top
  End With
  Application.ScreenUpdating = True
  Application.ScreenRefresh
lbl_Exit:
  Exit Sub
End Sub