Menus and toolbars disappeared!!

[imnie]

Help!! I've set up a worksheet such that when it opens it loads a custom toolbar...it then runs through several routines associated w/a selection on the custom toolbar. The very last thing these routines do is create a new workbook and then printpreview it. This all works, except when closing out of the printpreview I noticed that the entire environment changes - only the formula entry bar is still showing. My custom tool bar even has disappeared.

Thanks for any help!!

 

[Colo]

Hi imnie,

Please give it a try.
Put following code on std module of new workbook, and execute this code.

<Pre>
Sub Test()
Dim myCB As CommandBar
For Each myCB In CommandBars
myCB.Enabled = Not myCB.Enabled
Next
End Sub
</pre>