Toolbars = Off

[Mike E Golding]

I have a macro which runs when each sheet is activated to hide the toolbars which have been opened by other:
Sub TOOLBARS_OFF()
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Chart").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("External Data").Visible = False
Application.CommandBars("Forms").Visible = False
Application.CommandBars("Picture").Visible = False
Application.CommandBars("PivotTable").Visible = False
Application.CommandBars("Reviewing").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application.CommandBars("Web").Visible = False
Application.CommandBars("WordArt").Visible = False
End Sub

Please can anyone tell me whether I can use a one liner.
Thanks for any help. Mike.

 

[Yesuslave]

Sub TOOLBARS_OFF()
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
i = Application.CommandBars.Count
On Error Resume Next
For j = 2 To i
Application.CommandBars(j).Visible = False
Next

End Sub

Good Luck,
Josh

 

[Seti]

Don't know about simplifying the code, but there are a bunch of other toolbars available that you are not closing. For example, I always have the auditing toolbar open. To see all of them, right click the menu area and select customize to see all of them.

 

[Mike E Golding]

Thankss a million to both Yesuslave and Seti. I finally got time to get back and will get into both replies...Thanks again...Mike