Man you guys are quick, I found a way to fix it in an old forum

Sub test()
Application.CommandBars(1).Enabled = True
End Sub


Now I also found how to make them disappear and reappear

Private Sub Workbook_Activate()
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = False
Next
End Sub

Private Sub Workbook_Deactivate()
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = True
Next
End Sub


Next all I want is a print icon, I will have to research more.

Thanks again


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements