Hi Christine,
Try:
Call UpdateBookmark("BMQuoteNumberHeader", txtQuoteNumber.Text)
with:
Code:
Sub UpdateBookmark(BmkNm As String, NewTxt As String)
Dim BmkRng As Range
With ActiveDocument
If .Bookmarks.Exists(BmkNm) Then
Set BmkRng = .Bookmarks(BmkNm).Range
BmkRng.Text = NewTxt
.Bookmarks.Add BmkNm, BmkRng
End If
End With
Set BmkRng = Nothing
End Sub
Note: There is no need for the GoTo, to explicitly access the header, or to select anything. Furthermore, unlike your code, if you change your mind about what should appear in the header, the content gets changed - your's just appends the new content.