Change the code in my previous post to
Private Sub FillBM(oDoc As Document, strBMName As String, rngSource As Range)
Dim oRng As Range
    With oDoc
        On Error GoTo lbl_Exit
        Set oRng = .Bookmarks(strBMName).Range
        oRng.FormattedText = rngSource
        oRng.Bookmarks.Add strBMName
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub