Dim oBM As Range If X = True Then Set oBM = ActiveDocument.Bookmarks("Bookmarkname").Range oBM.Collapse 1 oBM.InsertBreak wdPageBreak End If