Hi Peter,
Hold. The code I supplied won't work. I told you I wasn't an expert !
I was being clever and tried to split the code I use into two parts.

Here is the full code - as given, it rquires a specific cell for use as a
flag.
In the example i've used A1

Sub HideShowUserTbars()
Static UserBars As New Collection
Dim Tbar
If Range("A1") = 0 Then
For Each Tbar In Application.CommandBars
If Tbar.Type < 1 And Tbar.Visible = True Then
UserBars.Add Tbar
Tbar.Visible = False
End If
Next
Range("A1") = 1
Else
For Each Tbar In UserBars
Tbar.Visible = True
Next
Range("A1") = 0
End If
End Sub

Regards,
Don

"Silas Mercer " wrote in
message ...
Don,

Thank you very much, this worked very nicely.

That said, do you know if there is a feasible way to adjust the user's
settings so as to remove all extra toolbars (in order to give space to
the screen) and then place them back the way they were on
Workbook_Close rather than using the zoom feature?

I only bring it up because I have some small text in the workbooks
which I fear might become illegible should the zoom require a
shrinkinge to 80% or something.

If not, I thank you for your help anyway, this is definitely something
I could incorporate.

Best Regards,

-Peter


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