"CommandBars" not recognized in EXCEL.

[mtroche]

I am trying to automatically hide all toolbars when I open this workbook, but the program always says that CommandBars is empty. What I am doing wrong?! Below you can see my program.

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Private Sub Workbook_Open()
Call HideAllToolbars
Presentation.Show vbModeless
End Sub
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Sub HideAllToolbars()
Dim TB As CommandBar
Dim TBNum As Integer
Dim TBSheet As Worksheet
Set TBSheet = Sheets("TBSheet&quot
Application.ScreenUpdating = False

'Clear the sheet
TBSheet.Cells.Clear

'Hide all visible toolbars and store their names
TBNum = 0
For Each TB In CommandBars
If TB.Type = msoBarTypeNormal Then
If TB.Visible Then
TBNum = TBNum + 1
TB.Visible = False
TBSheet.Cells(TBNum, 1) = TB.Name
End If
End If
Next TB
Application.ScreenUpdating = True
End Sub
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

 

[joerd]

It works fine here... (XL97)

Cheers,
Joerd

Please see FAQ731-376 for tips on how to make the best use of Eng-Tips.