Replacing Toolbars and screen not refreshing

[Seanzies]

I have a procedure that runs that hides all toolbars on the Workbook_Open()
and makes them visible on a Workbook_BeforeClose()

With the Application.ScreenUpdating = True I set do the following:


For Each Cell In PersistentData.GetSavedToolbarRange().Cells
BarName = Cell.Value 'the name of the toolbar
If (BarName = "") Then
Exit For
Else
Application.CommandBars(BarName).Enabled = True
Application.CommandBars(BarName).Position = msoBarTop
Application.CommandBars(BarName).Visible = True
End If
Next

The problem that I am having is that when you have more than one workbook open in the same instance of excel running this procedure is running correctly but you can only see one of the toolbars displayed and the rest appear to not be visible when in fact, according to excel under View --> Toolbars they are. So its like Excel is not repainting / refreshing the screen to show all of the toolbars that are enabled and visible.

How can I fix this.

Sincerely,

Very frustrated Programmer & Users

BTW - I didn't see the option to add code tags, they used to be a button you could click to add a code tag..where did they go?