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