Поиск и замена текста: все работает, кроме значений в колонтитулах

Function SearchInRange(oDoc, oRng, obook, l As Object) As Boolean
Dim klop As Object
'Задаем цикл и потом передаем параметры в функцию DoReplace
  With oRng.Find
        .Text = "[[]?*[]]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
        .Execute
 End With
 Do While oRng.Find.Found = True
    oRng.Find.Execute
   If Not oRng = "" Then Codes = oRng
   'If Not oRng = "" Then Codes = Mid(oRng, 2, Len(oRng) - 2)
Set sRow = obook.Sheets(1).Cells.Find(What:=Codes, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
If Not sRow Is Nothing Then
        sRow = sRow.Row
        Values = obook.Sheets(1).Range("B" & sRow).Value
        If Len(Values) > 240 Then Values = Left(Values, 240)
        Call DoReplace(oRng, strFind:=oRng, strReplace:=Values)
Else:
    oRng.HighlightColorIndex = wdRed ' Заливаем проблемные коды красным
   If Not oRng = "" Then Codes = Mid(oRng, 2, Len(oRng) - 2)
    Values = Chr(34) & Codes & Chr(34)
    Call DoReplace(oRng, strFind:=oRng, strReplace:=Values)
 End If
 'MsgBox oRng кусок не работает почему-то l после двух прохождений цикла становится становится равным ""
 Set oRng = l
 'MsgBox oRng
 oRng.Find.Text = "[[]?*[]]"
 oRng.Find.Forward = True
 oRng.Find.Wrap = wdFindContinue
 oRng.Find.Format = False
 oRng.Find.MatchWildcards = True
 oRng.Find.Execute
     ' MsgBox oRng.Find.Found
 Loop
End Function
Function DoReplace(oRng, strFind, strReplace) As Boolean
'Замена кодов в колонтитуле
  With oRng.Find
        .Text = strFind
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = bWildCards
        .Replacement.Text = strReplace
        .Execute Replace:=wdReplaceAll
    End With
End Function