here is the code placed in 'ThisMacroStorage'
Private Sub CurDoc_PageCreate(ByVal Page As Page) updateEnd SubPrivate Sub CurDoc_PageDelete(ByVal Count As Long) updateEnd Sub