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