Custom Toolbar blanks cells problem

[DesM]

In a workbook (10 sheets) I have one sheet ("Input") with a custom toolbar. I have code which hides this toolbar when other sheets are selected.
When I revert back to the the "Input" sheet most of the cells are blank and the sheet generally distorted. If I disable the custom toolbar the problem is gone. Also, I have discovered that if I place the custom toolbar in the first row of toolbars (eg, beside "Standard" toolbar) then the problem does not occur. It happens only if the first toolbar row is full and the code tries to add the custom toolbar (and place it in the second toolbar row).
Can anyone help?
Excel 2003

DesM

[Bernie Deitrick]

"I have code" should be, instead, "Here's the code that I use...." ;-)

[DesM]

Goodness Bernie. And you're a "Valued Forum Contributor"
Des M

[Bernie Deitrick]

But you need to post your code. Otherwise, nobody can help you. That was my point.

[DesM]

Oh Bernie, I'm very sorry.
Here is the code:

Option Explicit
Private Sub Worksheet_Activate()
ActiveWindow.FreezePanes = False
Application.Toolbars("Accounts").Visible = True
ActiveWindow.FreezePanes = True
Application.ScreenUpdating = True[/INDENT]End Sub
====================
Private Sub Worksheet_Deactivate()
Application.Toolbars("Accounts").Visible = False
End Sub

[Bernie Deitrick]

Try just this

Please Login or Register  to view this content.

[DesM]

Bernie, thanks ever so much.
I've tried your code but no luck.
I opened a new WB and pasted the "Input" sheet into it (using select all cells, copy, paste). The macro works fine.
From this I am assuming that there is some bug/corruption in the WB itself as I understand can happen. I think I will just copy over each sheet.
Thank you again for your assistance and my apologies for my earlier comment.

Des M

[Bernie Deitrick]

Sometimes workbooks become corrupt, for any of a variety of reasons, so starting new was a good idea.