Created a workbook with 12 sheets for some clients.

Have the following VBA code used to hide all the toolbars when opening
And unhide when closing the workbook.

Dim aryCBs

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long

For i = LBound(aryCBs) To UBound(aryCBs)
Application.CommandBars(aryCBs(i)).Visible = True
Next i
ActiveWorkbook.Save

End Sub

Private Sub Workbook_Open()
Dim oCB As CommandBar
Dim i As Long

Application.ScreenUpdating = False
Application.DisplayFormulaBar = False
ReDim aryCBs(0)
For Each oCB In Application.CommandBars
If oCB.Visible Then
If oCB.Name < "Worksheet Menu Bar" Then
ReDim Preserve aryCBs(i)
aryCBs(i) = oCB.Name
oCB.Visible = False
i = i + 1
End If
End If
Next oCB
Application.ScreenUpdating = True

End Sub

A single customer says that he gets a run time error when closing th
workbook. And it appears in the following code:
Application.CommandBars(aryCBs(i)).Visible = True

He is running the same version of Excel (97) as I am. I have tried t
duplicate this error and cannot!\

Anybody have an idea as to why he is the only one with this problem ou
of all my customers?

Appreciate the help

--
Message posted from http://www.ExcelForum.com