Hi guys,

I'm having trouble with this vba code and I have no idea how to solve this.

Sub ApplyDraft()
With ActiveDocument
If .Bookmarks.Exists("Status") Then WriteToBookmarkRange "Draft", cboYourName.Value

End With
Application.ScreenUpdating = True
Unload Me
End Sub

The problem lies with the WriteToBookmarkRange
Thank you!!