Since the checkboxes are not mutually exclusive, I would use a function
Code:
Sub aTest()
Set myCopy = Documents.Add(ActiveDocument.FullName)
ProcessCheckbox frmPrint.chk1, "hire", myCopy
ProcessCheckbox frmPrint.chk2, "void", myCopy
ProcessCheckbox frmPrint.chk3, "bright", myCopy
ProcessCheckbox frmPrint.chk4, "load", myCopy
End Sub
Function ProcessCheckbox(aCtl As Control, sBkmk As String, myCopy As Document)
If aCtl.Value = True Then
If myCopy.Bookmarks.Exists(sBkmk) Then
myCopy.Bookmarks(sBkmk).Range.Delete
End If
End If
End Function