Just a quick guess ...
Sub rxIRibbonUI_OnLoad(ByVal ribbon As Office.IRibbonUI) Set grxIRibbonUI = ribbon 'now goes back to the top of the document bBeenRun =ActiveDocument.CustomDocumentProperties("Chapter Numbers")ActiveDocument.Bookmarks("\StartofDoc").Select Selection.Collapse End Sub