delete all user made toolbars

[lior03]

hello
is it possible to delete all user made namely all unbueiltin toolbars at one stroke once i want to close a workbook?
thanks

[Bob Phillips]

Sub DeleteCustomToolbars()
Dim ocb As CommandBar
For Each ocb In Application.CommandBars
If Not ocb.BuiltIn Then
ocb.Delete
End If
Next ocb
End Sub

[Jan Karel Pieterse]

Like this:

Sub RemoveUserBars()
Dim oBar As CommandBar
For Each oBar In Application.CommandBars
If Not oBar.BuiltIn Then
oBar.Delete
End If
Next
End Sub

[geekgirlau]

Snap! And it's xld in front by a nose hair :funnyashe

[Jan Karel Pieterse]

Darn, I would have won would I have been using my normal DSL connection @ 4 mb iso my current 150 K wireless mobile <g>.

[johnske]

Bob's pretty hard to beat in the speed department, the difference was probably the extra time you spent to type the two words "Like this:" :rotlaugh:

[Bob Phillips]

I don't waste words, but Jan Karel had a better variable name :yes

[Jan Karel Pieterse]

You can expect me to raise the Bar anytime <g>