Found this code that solved my problem...
http://www.ozgrid.com/forum/showthread.php?t=21744
Author: Aaron blood
Since it uses a collection of the toolbars... no matter what inventory of
toolbars you have...
Thought i'd share
MD
Dim UserToolbars As New Collection
Dim AppToolbars As New Collection Private Sub Workbook_Open()
Define_Toolbar_Collections
Display_App_Toolbars
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Display_User_Toolbars
End Sub
Private Sub Define_Toolbar_Collections()
Set AppBars = Application.CommandBars
For Each tb In AppBars
If tb.Visible Then
UserToolbars.Add tb
End If
Next tb
End Sub
Private Sub Display_App_Toolbars()
On Error Resume Next
For Each tb In UserToolbars
tb.Visible = False
Next tb
For Each tb In AppToolbars
tb.Visible = True
Next tb
End Sub
Private Sub Display_User_Toolbars()
On Error Resume Next
For Each tb In AppToolbars
tb.Visible = False
Next tb
For Each tb In UserToolbars
tb.Visible = True
Next tb
End Sub