On Error Resume Next
 Sub m1_Change()
   call relateItems
   End Sub 
 Sub m2_Change()
   call gotoPage
   End Sub
 Sub Window_onLoad() 
   call addHeadings
   End Sub