Enter the following in to ThisWorkbook

Private Sub Workbook_Open()
Call Setmenu
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ResetMenu
End Sub

Lee



--
roundabout
------------------------------------------------------------------------
Posted via http://www.mcse.ms
------------------------------------------------------------------------
View this thread: http://www.mcse.ms/message2423610.html